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Előszó 


Ezt a könyvet mindazoknak szánjuk, akik a BASIC programozási nyelvvel 
szeretnének megismerkedni. Ennek érdekében az egyes fejezetek didaktikusan 
épülnek egymásra, a fejezeteken belül pedig különböző feladatok megoldásával 
mélyíthetők el az ismeretek. Ezek alapos elsajátítását megkönnyíti, és igazából 
lehetővé csak az teszi, ha a tanultakat számítógépen ki is próbáljuk. Javasoljuk 
tehát az Olvasónak, hogy 
— a könyv anyagának feldolgozását a személyi számítógéphez ülve kezdje el, 
— próbálja ki az összes bemutatott példaprogramot, 

— oldja meg az összes feladatot, 
— oldjon meg minél több gyakorlatot. 

Könyvünk olvasásához nem szükséges különösebb matematikai előismeret. 

Ebből a szempontból az ötödik fejezet jelenthet kisebb nehézséget, de az abban 
leírtak teljes megértését a további fejezetek nem igénylik. 
. A könyvben levő sok feladat és gyakorlat, amelyek mindegyikének a megol- 
dását is közöljük, lehetővé teszi, hogy tanári kézikönyvként is használható 
legyen. A feladatok megoldásai közvetlenül az egyes fejezetek végén, a gyakor- 
latoké a tizenkettedik fejezetben vannak összegyűjtve. A gyakorlatoknál gon- 
doljuk végig, hogy az adott fejezetben tanult ismeretek közül melyek segítségé- 
vel tudjuk megoldani, vagy egyszerűbben megoldani azokat. Ismétlésnek is 
nagyon jó, ha minden egyes új ismerethez megkeressük azokat a gyakorlatokat 
— a korábbi fejezetekből is —, amelyek megoldását lerövidíthetjük, tökéletesíthet- 
jük segítségükkel. 

Ne keseredjünk azonban el, ha az általunk készített megoldás a közölttől 
különbözik, hiszen az is csak egy a lehetségesek közül. A feladatok és a gyakor- 
latok között olyanokkal is találkozunk, amelyeket többféleképpen is meg lehet 
oldani. Minden esetben tanulmányozzuk át a közölt programokat is, de saját 
programunk helyessége ellenőrzésének legbiztosabb módja, ha a számítógépen 
lefuttatjuk, és valóban azt csinálja, amire gondoltunk. 

A programozási nyelvek annyiban hasonlítanak a természetes nyelvekhez, 
hogy szavakból és jelekből állnak, amelyeket nyelvtani szabályok szerint kap- 
csolunk össze. Alapvető különbség, hogy a programozási nyelvek szókincse 
lényegesen kisebb, és a helyesírási, formai szabályok jóval szigorúbbak. A szá- 
míitógép csak akkor érti meg az általunk közölni kívánt információt, ha azt 
egyértelműen, a szabályoknak megfelelően írjuk le. Ha egy programot a formai 
szabályokat betartva, azaz szintaktikusan helyesen megírunk, ez még nem 
jelenti azt, hogy jó is lesz. Fontos hogy logikailag, azaz szemantikusan is helyes 
legyen. 


Tartsuk szem előtt a következő jótanácsot! 

Ha egy program nem úgy működik, ahogy azt szerettük volna, akkor ne a 
gépben, hanem programunkban keressük a hibát! Ennek megtalálása sokszor 
nem könnyű feladat. Ahhoz, hogy gyorsan és pontosan tudjunk programot írni, 
illetve a hibákat hamar megtaláljuk, nagyon sok gyakorlásra van szükség. 

A könyvben a HT iskolaszámítógép BASIC nyelvének alapjait mutatjuk be. 
Más személyi számítógépek által ismert BASIC nyelyek több-kevesebb eltérést 
mutatnak, amelyek a gépekhez adott leírások alapján könnyen kideríthetőek, 
és ezeknek megfelelően a könyv tartalma, feladat- és gyakorlatanyaga ezekhez 
a számítógépekhez is jól használható. 

Itt szeretnénk köszönetet mondani: 

— Hámori Miklósnak és Lőcs Gyulának, könyvünk lektorainak, a kézirat 
alapos áttanulmányozásáért és értékes javaslataikért; 

— a Híradástechnikai Szövetkezetnek, hogy lehetővé tette a programlisták ki- 
nyomtatását; 

— Bazsó Júliának és Gyapjas Ferencnek a kézirattal kapcsolatos hasznos észre- 

vételeikért; k 
— és mindazoknak, akik a könyv megjelenését elősegítették. 


Ezek után még egy jótanács az Olvasónak: 
A PROGRAMOZÁSHOZ SEM VEZET KIRÁLYI ÚT! 
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Bevezető 


Vegyünk egy mély lélegzetet, és lapozzunk! 


Amit itt látunk, 
az egy BASIC nyelven írt program. 


REMKISERO FIGURA 

CLS 

FRINTEZ2ZBS, " dégdeti": : FPRINTEZBSTAROA, " HEJEJEBEE TT; 
FRINTEZBSt64, "4 A A X"; : PRINTEZBSEZHOZ, "4 TO 8"; 
PRINTEZBSH34O4 Tt Vf; á 
GOTO 60 


Önmagában nem sokat ér! 


Számunkra érdekessé, felhasználhatóvá az- 
után válhat, ha megismerkedünk a személyi 
számítógépek legfontosabb részeivel és azok 
használatával: 


A képernyő: 
A számítógépnek küldött és a számítógép által adott 
üzenetek képszerű megjelenítésére szolgál. 


A központi egység és a billentyűzet: 

A központi egység értelmezi és feldolgozza a billen- 
tyűzetről, a kazettás tárolóegységről, . . . érkező uta- 
sításokat, parancsokat és jeleket. 


A kazettás tárolóegység: 

Ez lehet például egy hagyományos kazettás magne- 
tofon, amelynek segítségével a programokat és az 
adatokat tudjuk magnószalagon tárolni. 


A sornyomtató: 
Az információk papíron való rögzítésére szolgál. 


, 


A hajlékony mágneslemez egység: 
Ugyanarra használják, mint a kazettás tárolóegysé- 
get, de annál gyorsabb és megbízhatóbb." 


A képernyő és a billentyűzet segítségével a számítógéppel párbeszédet foly- 
tathatunk. 


Ezt akkor tudjuk elkezdeni, ha a számí- 
tógépet üzembe helyezzük. A HT1B8OZ 
iskola-számítógép képernyőjén a bal fel- 
ső sarokban megjelenik a 


READY?. - 


felirat. Válaszul a INEWLINEI billen- 


tyűt kell lenyomni. Ezt követően a képer- 
nyő bal alsó sarkában az alábbi választ 
kapjuk: 


READY 
Szi rele 


Ez mutatja, hogy a számítógép munkára 
kész. 


Most rajtunk a sor! 


A billentyűzeten begépelhetünk valamilyen üzenetet, ami egyidejűleg a képernyőn 
is megjelenik. Ahhoz azonban, hogy ez az információ a számítógép központi 


egységéhez is: eljusson, le kell nyomni al NEWLINEI billentyűt. A továbbiakban 
ennek a billentyűnek a lenyomását INL Hlel jelöljük. 
VETÜL ; j 
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Miután az üzenetet elküldtük, két eset lehetséges: 

— Az üzenet a számítógép számára értelmes, ekkor a központi egység értelmezi 
azt és végrehajtja. 

— Az üzenetünk értelmetlen a számítógép számára, ekkor annak feldolgozásakor 
a központi egység hibajelzéssel (ERROR) válaszol. A hibás üzenet újragépelés- 
sel vagy javítással (szerkesztéssel, EDIT) módosítható. A további munkát 
lényegesen megkönnyíti, ha a gépkönyvekből a szerkesztésre vonatkozó részt 
minél alaposabban áttanulmányozzuk. 


Jól jegyezzük meg: a számítógép nem szereti a , zöldségeket"! 


Mindkét eset után a képernyőn ismét megjelenik a 


READY 
ee 


felirat, és ismét üzenetet gépelhetünk be. 
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Most már visszatérhetünk a 8. oldalon levő programhoz! Ha azt soronként 
begépeljük (ne feledkezzünk meg a sor végén a [NE [ről! ), és a számítógépnek a 
RUN parancsot adjuk, akkor ennek hatására a képernyőn könyvünk kísérő 
figurája jelenik meg. 


A továbbiakban a BASIC nyelvű programozás alap- 
jait mutatjuk be. 
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Első fejezet 


ISMERKEDJÜNK A KÉPERNYŐVEL! 


SET, RESET, CLS, GOTO 


Adjuk a számítógépnek a következő parancsot! 


SET(63,23) 


Ennek hatására a képernyő 63. oszlopának 23. sorában megjelenik egy grafikus 
pont. Grafikus pontnak, vagy egyszerűen csak pontnak fogjuk nevezni az egy 
SET utasítással vagy paranccsal megjeleníthető képelemet. 

Ha azt akarjuk, hogy a képernyőn csak ez az egy pont világítson, akkor 
gépeljük be a következő programsorokat: 


1.1 példaprogram 


19 CLS 
zó SET(63,23) 
36 GOTO 30 


Ha most a RUN paranccsal elindítjuk ezt a programot, akkor a 10-es 
sorban levő CLS utasítás hatására minden törlődik a képernyőről, a 20-as 
sorban levő utasítás ismét kigyújtja az előző pontot. A 3080-as sorban levő 
GOTO 39 utasítással pedig elérhetjük azt, hogy a képernyőn a ponton kívül 
semmi sem jelenik meg. A gép ezt a sort hajtja végre mindaddig ismétlődve, amíg 
a programot a billentyűvel vagy a gombbal le nem állítjuk, 
vagy a gépet ki nem kapcsoljuk. Eközben nem ír ki semmit a képernyőre, tehát 
csak a 28-as sorban kigyújtott pont világít. 
Ha az 1.1 példaprogramban a 30-as sor helyett a következőket írjuk: 


30 GOTO 10 
azaz azt az utasítást adjuk a gépnek, hogy menjen vissza a 19-es sorra, akkor 
a számítógép állandóan ismételni fogja az egymást követő 10-es, 2989-as és 3080-as 
sorban levő utasításokat: törli a képernyőt, kigyújtja az adott pontot ... Ezzel 


tehát elértük, hogy az adott pont villog. 
Egy pontot úgy is lehet villogtatni, hogy nem az egész képernyőt töröljük, 
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hanem csak a kigyújtott pontot a RESET utasítással. Az ennek megfelelő 
program pedig: 


1.2 példaprogram 


VA 
10 CLS 


29 SETLSS3, 23) 


vagy ami ezzel egyenértékű: 
1.3 példaprogram 


10 CLS 
20 SET(6é3,23) : RESET(63,23) s 
GOTO 20 


Lehetőség van tehát arra, hogy az utasításokat egymástól kettősponttal elvá- 
lasztva egy programsorba, illetve az egy programsorhoz tartozó utasításokat 
több sorba írjuk. 


Megjegyzés: Ha már egy programra nincs szükségünk, akkor az új program begépelése előtt adjuk 
ki a NEW parancsot! 


1.1 feladat: Készítsünk olyan programot, amelyik egy négyzet négy csúcsában és a középpontjában 
kigyújt egy-egy pontot! 

1.2 feladat: Módosítsuk az előző programot úgy, hogy a négyzet csúcsaiban levő pontok villogjanak, 
a középpont pedig folyamatosan világítson! 

1.3 feladat: Készítsünk olyan programot, amelyik kilenc középpontosan szimmetrikusan elhelyezke- 
dő pontot gyújt ki a képernyőn! (Az összes pont ne legyen egy egyenesen!) 


Értékadás 


A SET és a RESET utasítások felhasználásával mozgatni is tudjuk a ponto- 
kat a képernyőn. 


1.4 példaprogram 


19 CLS 

29 Xsz2z 

30 SET(X,23) : RESET(X,23) s: 3 
XzXti1 : 
GOTO 30 
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A példaprogramban az X változó segítségével a kigyújtandó pontok első koor- 
dinátáját lehet változtatni. A 29-as sorban levő X—2 és a 30-as sorban levő 
X-X3-1 utasítások ún. értékadó utasítások. Ezek pontos alakja: 
LET X-—2 (azaz legyen az X változó értéke 2), 
LET X-—X--1 (azaz legyen az X változó értéke az eddigi értékénél 1-gyel 
nagyobb.) Ügyeljünk arra, hogy az itt szereplő egyenlőségjel jelentése az, hogy 
a bal oldalán álló változó értéke legyen egyenlő a jobb oldal értékével. A bal 
oldalon mindig csak egy változó állhat, a jobb oldalon viszont szerepelhet vagy 
egy változó, vagy egy állandó, vagy egy összetett kifejezés is. Az értékadó 
utasításokat a LET kulcsszó nélkül is felismeri a gép, így ez el is hagyható. 

A GOTO 36 ütasítás hatására ismét a 3080-as sor elejére kerül a program 
végrehajtása, tehát kigyullad a 23. sorban a következő pont, majd el is alszik, 
... és így tovább. 


1.5 példaprogram 


19 CLS 
20 X-120 : Y51 
30 SET(X,23) : RESET(X,23) : 
X5X-Y : 
GOTO Z0 
Ez a példaprogram az 1.4 példaprogramhoz hasonlóan egy pontot mozgat, de 
az ottanihoz képest ellenkező irányban. 


Egyúttal az is látható, hogy lehetőség 
van változók értékeinek összeadásá- 
ra, kivonására. A 3080-as sorban az 
X-X-Y utasítás hatására az X vál- 
tozó értékéből a számítógép kivonja 
az Y változó értékét, és az X változó 
új értéke a kivonás eredménye lesz, 
tehát korábbi értékét elveszti. ( Y ér- 
téke nem változik.) Előfordulhat, 
hogy. az X változó előző tartalmát 
szeretnénk megőrizni. Ezt például 
úgy tehetjük meg, hogy a fenti utasí- 
tás elé beírjuk a 2—X értékadó uta- 
sítást, és ekkor a Z változó megőrzi 
a kívánt értéket. 
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Megjegyzés: A programokban a változók nevét kötelező betűvel kezdeni, a betű után írhatunk 
betűket vagy számokat is. Példák változónevekre: 


A, B2, FLAG, VEG, ERTEK 


A számítógép a változókat a nevük első két karaktere alapján különbözteti meg egymástól. Így 
például a SZAM és a SZEG nevek a gép számára ugyanazt a változót azonosítják. 

A változónevek nem tartalmazhatják a BASIC kulcsszavakat. Ennek megfelelően a következő 
változónevek hibásak: 


"KELET a LET kulcsszó miatt, 
. TOL a TO kulcsszó miatt, 
UGRUNK a RUN kulcsszó miatt. 


1.4 feladat: Írjunk olyan programot, amelyik egyszerre két pontot mozgat, az egyiket vízszintesen, 
a másikat függőlegesen! 


Megjegyzés: A program futásánál előforduló FC Error hibaüzenettel kapcsolatban lásd a Grafikus 
képernyőméret című részt! 


1.5 feladat: Próbáljuk meg az 1.4 példapr. ozramot úgy módosítani, hogy a pont folyamatosan fusson 
végig a 23. soron! 


Grafikus képernyőméret 


Az 1.4 és az 1.5 példaprogramok lefuttatáskor úgy fejeződnek be, hogy a 
számítógép hibajelzést ad. Ez nem véletlen, hiszen a képernyő méretei végesek, 
így a SET és a RESET utasítások argumentumába (a zárójelek közé) nem 
kerülhetnek akármilyen számok. A SET(X, Y), illetőleg a RESET(X, Y) utasí- 
tás csak akkor értelmes üzenet a gép számára, ha az X és az Y változók értékére 
teljesülnek a következő feltételek: 


OSXS127 és BSYS4T 


Ez azt jelenti, hogy a képernyőn 48 sorban soronként 128 pontot, vagyis 
összesen 6144 grafikus pontot tudunk megjeleníteni. 


Megjegyzés: A 128 oszlop és a 48 sor számozása 
nullától kezdődik, ennek megfelelően a képernyő 
legfelső sora a nulladik sor, a bal szélső oszlopa 
a nulladik oszlop. 


Több lehetőség is van arra, hogy az 
előbb említett hibát elkerüljük. Ezekkel 


a későbbiek során ismerkedünk majd 
meg. 


JA 
"eg 


Parancs, utasítás, program, programsor 


Az alcímben szereplő fogalmak mindegyikével találkoztunk már, most ponto- 
sítsuk ezek jelentését. 

A parancs a számítógép számára az az értelmes üzenet, amelyet a tartalmának 
megfelelően azonnal végre is hajt. Például kigyújt egy grafikus pontot 
(SET(12,15) ), elindít egy programot (RUN ), letörli a képernyőt 
(CLS ) stb. ; 

Az utasítás olyan értelmes üzenet, amelyet a számítógép nem közvetlenül a 
begépelés és az elküldés ( INL]) után hajt végre (hanem csak akkor, amikor a 
program futása az adott utasításhoz ér) és javításig vagy törlésig tárol. 

A programsor egy sorszámból (előjel nélküli egész szám) és egy vagy több . 
utasításból áll. A sorszám utáni utasítások több sorba is kerülhetnek (például 
az 1.4 példaprogram 30-as sorában három sorba). 

A program programsorokból áll. A könnyebb javítás érdekében célszerű a 
programsorokat tízesével számozni. A számítógép ezeket növekvő sorszám .. 
szerint hajtja végre, függetlenül attól, hogy azokat milyen sorrendben gépeltük 
be. Ez alól idáig egy kivételt láttunk, amikor a GOTO kulcsszó után megadott 
sorszámnak megfelelő programsornál folytatódik a program végrehajtása. 

Az 1.4 példaprogram tehát 3 programsorból és 6 utasításból áll. 


Megjegyzés: A könyvben szereplő összes utasítás parancsként is adható, ezért erre külön nem hívjuk 
fel minden esetben a figyelmet. 


Karakteres képernyőméret 


O-ssszsssssssssssssa ses: OZ A képernyőn 16 sorban (0., 1., 2., ..., 15. 
7 sor) soronként 64 (0., 1., 2., ..., 63. ka- 
rakter), összesen 1024 karakter jelenít- 
hető. meg. A megjeleníthető karaktere- 
ket a könyv végén levő táblázatban lát- 
hatjuk, ezekkel részletesebben a hetedik 
fejezetben foglalkozunk. 
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PRINT, INPUT 


A PRINT és az INPUT utasítások segítségével a program futása közben is 
párbeszédet folytathatunk a számítógéppel. 
Indítsuk el a következő programot! 


1.6 példaprogram 


19 CLS 
20 FRINT"MELYIK PONT VILAGITSON ?" 
30 PRINT"KEREM A KOORDINATAKAT !" 
40 INPUT X új 
59 INFUT Y 
60 CLS : 

SET(X,Y) : 

GOTO 29 


Ez az 1.1 példaprogram továbbfejlesztett változata. A PRINT utasítással kérdé- 
seket, feliratokat, karaktereket írathatunk ki a képernyőre. A kiírandó karakte- 
reket idézőjelek közé kell tenni. A 49-es sorban levő INPUT X utasítás hatására 
egy kérdőjel jelenik meg a képernyőn. Miután az X változónak adandó értéket 
begépeltük és elküldtük, kéri az Y változó értékét, és ha ezt is megadtuk, a 
program futása folytatódik. A 40-es és az 50-es sorokban levő utasításokat 
helyettesíthetjük a j ú 


40 INPUT X,Y 


utasítással is. Ekkor a megjelenő kérdőjel után két, egymástól vesszővel elvá- 
lasztott számot kell megadni. Amennyiben csak egy számot küldünk el, akkor 
a képernyőn két kérdőjel jelenik meg, és a számítógép várja a második szám 
megadását is. Ügyelni kell arra, hogy a begépelt számok a grafikus képernyőmé- 
reteknek megfelelő határok közé essenek. Ha ez teljesül, akkor a megfelelő pont 
kigyullad. A GOTO 28 utasítás eredményeképpen a számítógép annyiszor végzi 
el az eddigieket, ahányszor kívánjuk, és minden alkalommal másik pont gyújt- 
ható ki. 


1.6 feladat: Írjunk olyan programot, amelyik megkérdezi négy pont koordinátáit, ezeket a pontokat 
kigyújtja, majd kezdi elölről mindezt! 

1.7 feladat: Módosítsuk az 1.6 példaprogramot úgy, hogy amikor újabb pontot akarunk kigyújtani, 
akkor az előző pont továbbra is világítson! Mindig teljesíthető-e ez a feltétel? 


Az utasítások begépelésekor a PRINT kulcsszó kérdőjellel (?) helyettesíthető, 
azonban a program listázásakor már a PRINT alak jelenik meg. Az üres (lista 


nélküli) PRINT utasítás a képernyőn egy soremelést eredményez. A PRINT . 


utasítással a változók értékeit is ki lehet íratni, de ebben az esetben a változók 
nevét nem szabad idézőjelek közé tenni. 
Futtassuk le és tanulmányozzuk a következő programot! 
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1.7 példaprogram 


10 c 

29 BEN HAROM URES SOR KIIRATASA (SOREMELES) 

39 PRINT : PRINT : FRINT 

40 X-1 : Y-1 

50 REM AZ X ES AZ Y VALTOZOK ERTEKEINEK KIIRATASA 

60 PRINT"Xz";X,"Ya"gY 

70 GOTO 70 
Láthatjuk tehát, hogy egy PRINT utasítás listája több kiírandó elemet is 
tartalmazhat. Ezeket vesszővel vagy pontosvesszővel kell elválasztani egymás- 
tól. A pontosvessző hatására az X, illetve az Y változók tartalma közvetlenül az 
egyenlőségjel után jelenik meg. A vessző hatásáról a következőt kell tudni: 

A képernyő minden sora négy ún. nyomtatási zónára van osztva. Ezek a §., 
16., 32. és a 48. karakterpozíción kezdődnek. Az 1.7 példaprogram futtatásakor 
az "X—-" felirat és az X változó értéke az első zónába, az "Y—" felirat és az 
Y változó értéke pedig egy újabb zónába kerül. Ha a PRINT utasítás listájának 
végére pontosvesszőt írunk, akkor a kö- 
vetkező felirat az előző kiírás után, ha 
vesszőt, akkor egy újabb nyomtatási zó- . 
nában, ha pedig a lista végére egyik 
írásjel sem kerül, akkor egy újabb sor- 
ban folytatódik. 

Az 1.7 példaprogramban már hasz- 
náltuk az áttekinthetőséget megnövelő 
REM utasítást. Egy programsornak a 
REM kulcsszó utáni részeit a gép nem 
hajtja végre, így oda tetszőleges magya- 
rázó szöveget, megjegyzést írhatunk. 


A képernyőn kérdéseket az INPUT 
utasítás segítségével is elhelyezhetünk, 
amit az INPUT kulcsszó után idézője- 
lek közé kell tenni: 


1.8 példaprogram 


10 ELS 
209 INPUT"HANY CM MAGAS VAGY";C 
39 CLS 
490 PRINT Cs" CM MAGAS VAGY !" 
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1.8 feladat: Kati és Feri a következő játékot játsszák: A képernyőn megjelenő kérdésre Feri elfordul, 
és Kati két számot üt be. Ezután a képernyőn minden törlődik, és a megadott koordinátákkal 
rendelkező pont kigyullad. Feri visszafordul, és a képernyő bal felső sarkában kiíródó kérdésre: 
"MELYIK PONT VILAGIT?", megpróbálja eltalálni a világító pont koordinátáit. Megad két 
számot, majd ezután a számítógép képernyőt töröl, kiírja Kati számait és Feri számait. 
Készítsük el az ennek megfelelő programot! 


1.9 feladat: Hol a hiba? 


10 CLS 
20 SET(D,0) : 2-X : 3-Y 
" 39 SET(X,11) ; SET(X,21) , X5zXt2 
40 GOTO 30 


1.10 feladat: Hol a hiba? 


19 CLS 
20 SET. 1556) tt S-ET(SSZA 
30 REZET(5,7) : GOTO 20 


1.11 feladat: Hol a hiba? 


10 CLS 

209 INPUT X;Y 

39 CLS : SET(X;Y) 
40 GOTO 40 


1.12 feladat: Hol a hiba? 


10 CLS 

ZO PRINT 

30 FRINT KERESD A HIBAT ! 
40 GOTO 509 


1.13 feladat: Hol a hiba? 


10 INPUT" A KOORDINATAK ?",X,Y 
20 CLS : SET(X,Y) 
39 GOTO 30 


Gyakorlatok az első fejezet anyagához 


1.1 gyakorlat: Készítsünk olyan programot, amelyik egy hatszög csúcsaiban helyez el pontokat és 
minden második pontot villogtat! 

1.2 gyakorlat: Rajzoltassunk ki a képernyőre egy háromszöget! 

1.3 gyakorlat: Készítsünk olyan programot, amelyik bekéri egy pont koordinátáit, majd innen 

" . kezdve kirajzol egy háromszöget! § 

1.4 gyakorlat: Készítsünk olyan programot, amelyik a képernyőn a lehető legtöbb pontot kigyújtja, 
de SET utasításból csak egyet használhatunk! 

1.5 gyakorlat: Készítsünk olyan programot, amelyik kigyújt 15 darab pontot a képernyőn, majd 
fordított sorrendben kioltja azokat, és elölről kezdi mindezt! Találjunk ki minél érdekesebb 
elrendezéseket! 
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1.6 gyakorlat: Írassunk ki a képernyőre egy tetszőleges betűt grafikus pontokból! 

1.7 gyakorlat: Írjunk olyan programot, amelyik bekéri két pont koordinátáit, majd ezeket felváltva 
villogtatja! Próbáljuk elérni, hogy a pontok kigyújtása, illetve lekapcsolása minél jobban érzékel- 
hető legyen! 

1.8 gyakorlat: Készítsünk olyan programot, amelyik egyszerre két függőleges és két vízszintes 
egyenes mindegyike mentén mozgat egy-egy pontot! 

1.9 gyakorlat: Mozgassunk egy-egy pontot a képernyőn átlós irányban villogtatva, illetve folyama- 
tosan! ; 

1.10 gyakorlat: Készítsünk olyan programot, amelyik beolvassa egy pont koordinátáit, és ebből a 

pontból vízszintesen és függőlegesen pontokat mozgat! : 

1.11 gyakorlat: Mozgassuk egy négyzet négy csúcsát átlós irányban a képernyőn! 

1.12 gyakorlat: Mozgassunk két pontot egymással szemben a képernyő két szélétől! 

1.13 gyakorlat: Fusson nyolc pont a képernyő közepétől a négy sarka és az oldalak felezőpontja felé! 

1.14 gyakorlat: Írassuk ki a képernyő közepére azt, hogy "SZIA!" 

1.15 gyakorlat: Helyezzük el a képernyő közepén a "VILLOG" feliratot, és villogtassuk is azt! 

1.16 gyakorlat: Írassuk ki a képernyőre a lehető legtöbb csillagot! 

1.17 gyakorlat: Írassunk ki a képernyőre "A" karakterekből álló nagy A betűt! 

1.18 gyakorlat: A képernyő alján megjelenik egy vízszintes csík egyenlőségjelekből, majd ez felsza- 

lad, és kezdődik az egész elölről. 
Készítsük el az ennek megfelelő programot! 

1.19 gyakorlat: "/7-jelek mozogjanak "átlós" irányban a képernyőn! 

1.20 gyakorlat: Olvastassuk be három változó értékét, és írassuk ki az alábbi formában: 

a) A - 
BE 
C 
b) A 


kó. Hb lel S) 
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Az első fejezet feladatainak egy lehetséges megoldása 


1.1 feladat 


19 CLS 
20 SET(54,19) : SET(74,19) : SET(54,29) : SET(74,29) : SET(64,24) 
30 GOTO 30 


1.2 feladat 


10 CLS 

20 SET(64,24) 

30 SET(54,19) : SET(74,19) : SET(54,29) : SET(74,29) 

40 RESET(54,19) : RESET(74,19) : RESET(54,29) : RESET(74,29) 
sa snTN za 


1.3 feladat 


19 CLS 
20 SET(48,16) : SET(54,19) : SET(74,19) : SET(B89,16) 
SET(48,32) : SET(54,29) : SET(74,29) : SET(80,352) 


.  SET(64,24) 

30 GOTO 30 
1.4 feladat - 

10 CLS 


20 XzD : Y:-0 

39 SET(X,23) : SET(SO)Y) s: RESET(X,23) : RESET(SO,Y) 
XzX4t3 : YzYt1 : 
GOTO 30 


1.5 feladat 


10 CLS 

29 Xsz1 

30 SET(X,23) : RESET(X-1.23) s 
XzXt1 : 
GOTO 30 


1.6 feladat 


10 CLS 
20 FRINT"KEREM A NEGY PONT KOORDINATAIT !" 
30 INFUT XI,Y1 : INPUT XZ,Y2 : INPUT X3,Y3 : INPUT X4,Y4 


40 CLS sz 
59 SET(XI,Y1) : SET(XZ2,Y2) : SET(X3,Y3) : SET(X4,Y4) 
60 GOTO 20 
1.7 feladat 
10 CLS 


29 FRINT"MELYIK PONT VILAGITSON ?" 
30 PRINT"KEREM A KOORDINATAKAT !" 
40 INPUT X,Y : 

SET(XGY) : 

GOTO 49 


Ha a már kigyújtott pontok között van olyan, amelyik abban a sorban van, amelyikben a 
következő INPUT utasítás kérdőjele megjelenik, akkor ez kialszik. 
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1.8 feladat 


CLsS 

PRINT" F.ER I , FORDULJ JEL !" s: PRINT 
PRINT"KEREM K A T I SZAMAIT !" s: INPUT X;Y 
CLS c 

PRINT"MELYIK PONT VILAGIT ?" : 


SET(XIY) : s 


PRINT"K ALT I PONTJA :";XgY s PRINT"F E R I PONTJA :";A;B 
SET(X,Y) : SET(A,B) 
GOTO 99 


1.9 feladat 
A 29-as sorban az értékadó utasítások helyesen: 
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X-2:Y-3 


Az utasításokat a 38-as sorban kettősponttal kell egymástól elválasztani. 

1.10 feladat 

A SET kulcsszó betűi között nem szabad üres helyet hagyni. 

A 36-as sorban a hibás REZET helyett a RESET kulcsszót kell írni. 

1.11 feladat ; 

A 28-as sor INPUT utasításában a listaelemeket vesszővel kell egymástól elválasztani. 
1.12 feladat § 

A PRINT utasítással kiírandó karaktereket idézőjelek közé kell tenni. 

A GOTO utasítás nem létező sorszámra mutat. 

1.13 feladat 

Az INPUT utasítás végrehajtásakor mindenképpen megjelenik egy kérdőjel. 

Az INPUT utasítást követő idézőjelek közé tett kérdés után mindig pontosvesszőt kell írni. 


Második fejezet 
HOGYAN MARADJUNK A KÉPERNYŐN?! 


IF-THEN-ELSE 


Módosítsuk az 1.6 példaprogramot 
úgy, hogy segítségével a képernyőnek 
csak az egyik felén lehessen pontokat 
kigyújtani (például azokat, amelyek 
X koordinátájára az X C 64 feltétel tel- 
jesül)! 


A módosított program alakja: 
2.1 példaprogram 
10 CLS 


20 FRINT"MELYIK PONT VILAGITSON ?" 
30 PRINT"KEREM A KOORDINATAKAT !" 


40 INPUT X 
50 IF X:63 THEN PRINT"X NAGYOBB 63 !" : GOTO 29 ELSE INFUT Y 
60 CLS : 

SET(XGY) 

GOTO 20 


Az 1.6 példaprogramnak az 58-es sorát módosítottuk az ún. feltételes utasítás 
alkalmazásával. 

Ha (IF) ismerjük az ebben szereplő kulcsszavak jelentését, akkor (THEN) 
máris könnyebb az utasítás értelmezése, különben (ELSE) pedig tanulmányoz- 
zuk figyelmesen ezt a mondatot! Ennek megfelelően, ha az 58-es sorban az 
. X5 63 feltétel teljesül, akkor a THEN kulcsszó utáni két utasítás hajtódik végre. 
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Ha pedig a feltétel nem teljesül, akkor beolvashatjuk a kigyújtandó pont másik 

. koordinátáját is, és ezután a program végrehajtása a 60-as sorral folytatódik. 

Vizsgáljuk meg a most megismert feltételes utasítás működését a következő 
két példaprogramban is! 


2.2 példaprogram 


19 CLS 
Zz0 PRINT"HANY EVES VAGY 7" : INFUT E 
30 IF E:18 THEN PRINT"TEHAT MAR ELMULTAL 18 EVES !" 
ELSE FRINT"VAGYIS 19 EVESNEL FIATALABB VAGY !" 
40 PRINT : FRINT"SOK SIKERT A KONYV TOVABBI OLVASASAHOZ !" 


2.3 példaprogram 


10 CL5S 
29 FKRINT"AZ ELSO KOORDINATA ": : INFUT X 
30 FRINT"A MASODIK KOORDINATA "; : INFUT Y 


40 IF Y-Z2 THEN GOTO 30 
ECSE SET(X,Y2 :. BOTO, 20 
39 FRINT"MELYIK. FONT VILAGIT ?" 


2.1 feladat: A 2.3 példaprogram futtatásakor milyen esetben jelenik meg a "MELYIK PONT 
VILAGIT?" felirat? 


Az első fejezet több programját kiegészíthetjük feltételes utasítással. 

Az 1.4 példaprogram egy pontot mozgat. Ha az ottani 380-as sorból aR ESET 
utasítást elhagyjuk, akkor a program egy vízszintes vonalat rajzol. Hasonló 
módon rajzol a következő példaprogramunk egy vonalat. 


2.4 példaprogram 


i19 CLS 

29 X5-0 

39 SET(X,42) 

40 XzX-r1 

38 REM A KOORDINATA VIZSGALATA 

60 IF X-127 THEN GOTO 39 ELSE FPRINT"A VONAL HUZASAT BEFEJEZTEM 
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A program lefuttatása után örömmel tapasztalhatjuk, hogy a 68-as sorban levő 
utasítással sikerült elkerülni azt, hogy futása hibajelzéssel fejeződjön be. 

Az ebben a példaprogramban is használt feltételes utasításnak az általános 
alakja a következő: 


IF feltétel THEN Il.utasításcsoport ELSE 2.utasításcsoport. 


Amennyiben a feltétel teljesül (IGAZ), azaz a 42. sorban még nem hagytuk el 
a 127. pontot, akkor a 38-as sorra térve újabb pont kigyújtására van lehetőség 
(1.utasításcsoport), ha pedig a feltétel nem teljesül (HAMIS), akkor a program 
kiír egy feliratot a képernyőre (2.utasításcsoport). 

Ha valamelyik utasításcsoport a 


GOTO sorszám 


utasításból áll, akkor a GOTO kulcsszó el is hagyható. Például a 2.4 példaprog- 
ram 60-as sorában a THEN GOTO 38 helyett THEN 38 is írható. 


2.2 feladat: Készítsünk olyan programot, amelyik 12 darab egymástól egyenlő távol levő szakaszt 
rajzol meg! 


A most.megismert utasítás feltétel része egy állítás, amelyben szerepelhetnek 
például a különböző relációjelek ( c , 2 , — ). Ügyeljünk arra, hogy itt az egyenlő- 
ségjelnek más értelme van, mint az értékadó utasításban! 

A feltételes utasításban az 


ELSE 2.utasításcsoport 


rész el is maradhat. Ekkor, ha a feltétel HAMIS, a program a feltételes utasítást 
követő sorral folytatódik. Ennek megfelelően a 2.4 példaprogramot a követke- 
zőképpen lehet módosítani: 


2.5 példaprogram 


10 CLS 

20 X-0 

30 IF X£127 THEN SET(X,42) : XzX4r1 : GOTO 30 
48 FRINT"A VONAL HUZASAT BEFEJEZTEM !" 


2.3 feladat: Módosítsuk az 1.8 feladatot, Kati és Feri játékát úgy, hogy a számítógép döntse el azt, 


hogy Feri eltalálta-e a világító pont koordinátáit! Ha nem, akkor újból próbálkozhat, ha igen, 
akkor ő helyezhet el egy pontot, s ezt Katinak kell kitalálnia. 
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Ciklusok 


Érdemes összehasonlítani a 2.4 és 2.5 példaprogramok folyamatábráját! 


Látható, hogy mindkét folyamatábra ugyanazokból az utasításokból áll. 
Ezek között vannak olyanok, amelyeket egy futás során csak egyszer, másokat 
többször is végrehajt a számítógép. Mindkét program képernyőtörléssel és az 
X 0 kezdőérték beállításával kezdődik. A 2.4 példaprogram ezután kigyújtja 


képernyő törlés képernyő törlés 


Az(X.42) koordinátáj 
pontig átása ínátájn 


Az(X.42)k. inátáj 
entizete tése nátája 


Szöveg kiiratása 


a képernyőre 


A 2.5 példaprogram folyamatábrája A 2.4 példaprogram folyamatábrája 


a 42. sor 0. pontját, majd eggyel megnöveli az X változó értékét és megvizsgálja, 
hogy az 127-nél kisebb-e. Ha igen, akkor kigyújtja a 42. sorban a következő 
pontot, ismét eggyel növeli az X változó értékét, és következik a vizsgálat. 
Mindaddig ismétli ezt, amíg a 127. pont nem kerülne kigyújtásra. Ekkor a vonal 
húzása befejeződik, amit egy felirat megjelenése is jelez a képernyőn, és a 
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program leáll. A 2.5 példaprogram látszólag ugyanezt végzi, de azzal a különb- 
séggel, hogy ebben a vizsgálat, illetve a pont kigyújtása és a koordinátaérték 
növelésének sorrendje fel van cserélve. A két megoldás közötti különbség jól 
érzékelhető, ha az X—0 helyett az X— 127 utasítást írjuk. Ekkor a 2.4 példa- 
program a (127,42) koordinátájú pontot kigyújtja, míg a 2.5 példaprogram 
egyetlen egyet sem gyújt ki. 

A bemutatott folyamatábrákban a CLS és a PRINT utasítások közötti részt 
ciklusnak nevezzük. Az utasítások ilyen csoportjának általában az a jellemzője, 
hogy 
— egy változó, az ún. ciklusváltozó értékét a ciklus elején beállítjuk, ez a ciklus- 

változó kezdőértéke; 

— ennek értékét a cikluson belül adott értékkel (lépésköz) növeljük vagy csök- 
kentjük mindaddig, amíg egy adott értéket (a ciklusváltozó végértéke) el nem 
ér; 

— minden lépésben a cikluson belül további utasítások is végrehajtódhatnak. 
A ciklusszervezéssel tehát lehetőség van arra, hogy utasításokat annyiszor 

hajtassunk végre, ahányszor azt kívánjuk, anélkül, hogy annyiszor le is írnánk 

azokat. 

Az eddigi programokban már találkozhattunk olyan programrészekkel, ame- 
lyek a ciklusok különböző fajtáiból mutattak be néhányat. Már az első fejezet 
elején, az 1.1 példaprogramban szerepel a 


398 GOTO 38 


programsor. Tulajdonképpen ez is egy ciklus, méghozzá egy ún. végtelen ciklus. 
(Ott azt is elmondtuk, hogy ezt a 
billentyű vagy a gomb segítségével 
szakíthatjuk meg. A végtelen ciklus futását a 
és a billentyűk egyidejű lenyo- 
mása is megszakítja.) Az említett utasítást az 
1.1 példaprogramban azért használtuk, hogy 
a képernyőábránk szép legyen. Nem megfele- 
lő, hibás programszervezés esetén azonban a 
végtelen ciklusok sok bonyodalmat is okoz- 
hatnak! 


TEJE ggg gg 
GULYA e 


A 2.3 példaprogramban is a ciklusszervezés 
egy fajtája szerepel. A 28—-40-es sorokban levő 
utasításokat addig ismétli a számítógép, amíg 
új koordinátákat adunk meg. Ezt a végtelen 
ciklust az előzőkhöz hasonlóan szakíthatjuk 
meg. Ez a program akkor is leáll, ha nem 
megfelelő adatokat adunk meg, és ekkor hi- 
bajelzést is kapunk. 
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STOP, END, CONT 


A számítógépen a IBREAKI billentyű lenyomásával szakíthatjuk meg a 
program futását. Ekkor a képernyőn megjelenik a 


Break in sorszám 


üzenet annak a sornak a sorszámával, amelynek végrehajtása közben nyomtuk 
le a billentyűt. 

A program futása leáll akkor is, ha egy STOP vagy egy END utasításhoz ér. 
Az első esetben a 


Break in sorszám 
READY 


üzenet, a másodikban pedig csak a 
READY 


felirat jelenik meg a képernyőn. Ezekben az esetekben, ha a programot formai- 
lag nem módosítjuk, akkor a futásának folytatását a CONT paranccsal 
érhetjük el. Ekkor a program az utoljára végrehajtott utasítást követő utasítás- 
sal folytatódik. ; 

Észrevehettük, hogyha a programban sehol sem helyezünk el STOP vagy 
END utasítást, és nem tartalmaz végtelen ciklust, akkor a számítógép automati- 
kusan úgy hajtja végre azt, mintha az utolsó sor után egy END utasítást 
tartalmazó sor lenne. 


Megjegyzés: A STOP és az END utasítások hatása és szerepe egyes számítógéptípusoknál és 
programozási nyelvekben lényegesen különbözik! 


FOR-TO-STEP-NEXT 


Az 1.4, a 2.4 és a 2.5 példaprogramok vízszintesen rajzoltak egy pont mozga- 
tásával vonalat. A következő példaprogramban egy új utasítás, a ciklusutasítás 
segítségével ezúttal egy ferde helyzetű vonalat rajzoltathatunk a képernyőre. 


2.6 példaprogram 


10 CLS 3 

20 FOR X-4 TO 42 STEF 2 : REM A CIKLUS FEJE 

30 SET(XtX-4£.X,X) : REM A CIKLUS MAGJA 

48 NEXT X : REM EZ IS A CIKLUS FEJE 


390 GOTO 508 
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A 28 -as és a 48 -es sor, illetve a köztük levő 38 -as sor jelenti a ciklusutasítást. 
Az első kettő a ciklus feje, a köztük levő a ciklus magja. A ciklusmag utasításai 
mindaddig végrehajtódnak, amíg a ciklusváltozó (X) kezdeti értéke a megfelelő 
növelésekkel (lépésköz: 2) el nem éri a végső értékét (42). A lépésköz lehet 
pozitív és negatív érték is. Amennyiben értéke éppen egy, akkor el is hagyható. 
A negatív lépésköz például arra is felhasználható, hogy az átlót alulról felfelé 
rajzoltassuk meg. Próbálkozzunk meg vele! 


2.4 feladat: Oldjuk meg a 2.2 feladatot ciklusutasítás segítségével is! 


Láthatjuk tehát, hogy a ciklusutasítás alkalmazásával az előzőkben megismert 
ciklusszervezés egyszerűbbé válik. A ciklusutasítás elvégzi a ciklusváltozó mó- 
dosítását és a vizsgálatot is. Jegyezzük azonban meg, hogy a ciklusutasításnál 
a ciklus magja legalább egyszer mindig végrehajtódik, és csak utána következik 
a vizsgálat. (Ez a 2.4 példaprogramban látott ciklusszervezésnek felel meg.) 


Fontos, hogy jól megértsük a következő program működését! 
2.7 példaprogram 


19 CLS 

20 INPUT"KEZDOERTEK ":Kk 
39 INFUT"VEGERTEK ";V 

490 INPUT"LEPESKOZ "§L 

50 FOR I-k TO V STEP L 
60 PRINT I; 

70 NEXT I 

80 FRINT : FRINT" VEGE" 


Futtassuk le ezt á programot a következő értékekkel is! 


LEE KNK DSE 
ETEL HANA SE LE 
KZI9" V—-I TESlÚ 


A ciklus magja tartalmazhat egy újabb ciklust is. Ebben az esetben beszélünk 

külső és belső ciklusról, a ciklusok ilyen elrendezését pedig egymásba skatulyá- 
zásnak nevezzük. Az egymásba skatulyázott ciklusokkal sok feladat egyszerűb- 
ben és áttekinthetőbben oldható meg. 
. A ciklusváltozó értékét a cikluson belül megváltoztatni nem szabad! Ebből 
következik, hogy az egymásba skatulyázott ciklusok ciklusváltozóinak külön- 
bözőeknek kell lenniük. Egy ciklusutasításba csak a FOR utasításon keresztül 
léphetünk be. Helyesen egymásba skatulyázott ciklusokra mutat példát a követ- 
kező ábra: : 
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FORT see 
FÓR J.ssee 


MET szek eééa és 
POR KIT 


HAt ző És ezstsájse ésésl 


a 
kő 


séttbe 


V.VVÉSEGEVVEg, 


ESO 
VR gyéni 


a 


2.5 feladat: Oldjuk meg a 2.2 feladatot egymásba skatulyázott ciklusok segítségével! 


Programjaink futtatásánál a képernyőn egymás után megjelenő információk 
áttekinthetőségét, egymástól való jobb elkülöníthetőségét jelentősen megnövel- 
hetjük például egy ciklusmag nélküli ún. üres ciklusutasítással is, amelynek 
segítségével egy pontot vagy egy feliratot adott ideig jeleníthetünk meg a képer- 
nyőn, vagy késleltethetjük a megjelenésüket. 


2.6 feladat; Készítsünk programot, amelyik egy pontot villogtat 3 másodperces időközökkel! 


Rövid összegzés 


Próbáljuk megfejteni, hogyan működik a következő program. Ha sikerült, 
futtassuk le, és ellenőrizzük, hogy helyesen gondoltuk-e! 


2.8 példaprogram 


19 CLS 

20 FRINT"MELYIK SORBA RAJZOLJAK VONALAT ?" : INPUT Y 
30 IF Y-X:5--i THEN 50 

4Ag IF Y:48 THEN 60 


58 FRINT"IRGUM-BURGUM ! JO ADATOKAT KEREK !!!" 0 g 
GOTO 29 
60 CLS 


70 FOR X5-0 TO 127 

80 SET(X,Y) 

90 NEXT X 

100 FOR X5127 TO B STEP -1 
119 — RESET(X,Y) 

127 NEXT X 

130 FRINT"HOGY TETSZETT 7?" 
149 STOP 
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Itt felismerhettük csaknem az összes eddig tanult utasítást. Észrevehettük, ezt 
a programot nem lehet becsapni úgy, hogy a lehetségesnél nagyobb vagy kisebb 
koordinátákat adunk meg. (Lásd 38 —58 -es sorok!) 


2.7 feladat: Készítsünk olyan programot, amelyik egy függőleges szakaszt balról jobbra mozgat! Az 


egymást követő helyzetekben a szakasz rajzolása felváltva alulról, illetve felülről történjen. 


2.8 feladat: Írjunk olyan programot, amelyik 29 darab vízszintes szakaszt rajzol! Az egymás után 


következő szakaszok növekvő hosszúságúak legyenek, és a növekmény legyen állandó. 


2.9 feladat: Készítsünk olyan programot, amelyik egy átlós helyzetű szakaszt mozgat a képernyőn! 
2.10 feladat: Hol a hiba? 


10 CLS : 


Y:g 


29 SET(60,Y) 
30 IF Y-Z47 THEN YzY-41i1 : GOTO 29 ELSE 40 


49 GOTO 40 


2.11 feladat: Hol a hiba? 


10 
20 
30 
40 
30 


INFUT X 
IF X:10 


THEN GOTO 49 : PRINT "X NAGYOBB TIZNEL" 


PRINT "X NEM NAGYOBB TIZNEL" 
FOR K-1009 TO B STEP -2 : NEXT K 


GOTO 10 


2.12 feladat: Hol a hiba? 


10 
20 
20 
40 
50 


CLS 
FOR X5s2 


TO 42 STEP 2 


SET(X4X,X) 


NEXT 
GOTO 50 


2.13 feladat: Hol a hiba? 


10 
20 
30 
40 
50 
60 


CLS 
FOR Y-4 
FOR X 
SET 
NEXT X, 
GOTO 49 


8 TO. 0ESTEP--I 
zíi28 TO 0 STEP -i 
(X,Y) 

Y 


0900000e 


viddádi e... 


? 1d 


e 

e 

e 

e 6000 

a. 222] 200000 Bsro0AOPfG 
e 

0. 
0g 
0 
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Gyakorlatok a második fejezet anyagához 


2.1 gyakorlat:Készítsünk olyan programot, amelyik kirajzol a képernyőre 5 függőleges vonalat, 

majd törli a képernyőt, és kirajzol 5 vízszintes vonalat! Ezután ezt ismételgeti állandóan. 

2.2 gyakorlat:Rajzoltassunk 15 olyan vonalat, amelyek 36 részre bontják a képernyőt! 

2.3 gyakorlat:Írjunk olyan programot, amelyik 10 darab vízszintes vonalat rajzol, de úgy, hogy 

mindegyik elé egy számot is ír! 

2.4 gyakorlat:Írjunk olyan programot, amelyik a képernyő négy sarka és az oldalak felezőpontja 

felé vonalakat húz a képernyő középpontjából! 

2.5 gyakorlat: Húzassunk vízszintes vonalakat egymás alá felváltva mínusz jelekből (— ), illetve 

grafikus pontokból! 

2.6 gyakorlat:Rajzoltassunk keretet a képernyőre grafikus pontokból! 

2.7 gyakorlat:Rajzoltassunk keretet a képernyőre csillag karakterekből (xx)! 

2.8 gyakorlat:Írassuk ki a. képernyőre a megfelelő sorba a következő feliratokat: "ELSO SOR", 

"HARMADIK SOR", "OTODIK SOR", majd grafikus pontokkal húzassuk is alá őket! 

2.9 gyakorlat:Készítsünk programot, amelyik koordinátatengelyeket rajzol! 

2.10 gyakorlat:Egy program olvassa be egy pont koordinátáit és ábrázolja azt egy koordináta-rend- 
szerben! 

2.11 gyakorlat:Írassuk ki a képernyőre a "TMASSALHANGZOK?" szót, majd grafikus pontokkal 
takarjuk le a magánhangzóit! 

2.12 gyakorlat:Írassunk ki három számot a képernyőre, és mindegyiket keretezzük be csillag karak- 
terekkel (x)! 

2.13 gyakorlat:Írassunk ki a képernyő első sorába 5 darab pluszjelet (  ), ezután ezek 3 másodper- 
cenként mindig egy sorral lejjebb jelenjenek meg! 

2.14 gyakorlat:A képernyőn megjelenik az 1-es szám, majd három másodpercenként mindig az 
előzőnél eggyel nagyobb szám. Készítsük el ezt a programot! 

2.15 gyakorlat:Készítsünk programot, amelyik metronómként működik! 

2.16 gyakorlat:Készítsünk programot, amelyik óraként működik! 

2.17 gyakorlat:Írjunk olyan programot, amelyik bekéri a pontos időt, majd mutatja az idő múlását! 

2.18 gyakorlat:5 másodpercenként szaladjon fel egy vízszintes vonal a képernyőn! 

2.19 gyakorlat:Írjunk olyan programot, amelyik 3 vízszintes vonalat rajzol egyszerre úgy, hogy a 
k. másodpercben 2k darab újabb grafikus pontot gyújt ki vonalanként! 

2.20 gyakorlat:Írassunk ki a képernyőre 50 darab csillagot, de csak egy PRINT utasítást, és abban 
is csak egy csillag karaktert használhatunk! 

2.21 gyakorlat:Kati és Feri a következő játékot játsszák: Kati gondol egy számot, és azt közli a 
számítógéppel. Feri megpróbálja a számot kitalálni, és a gép ellenőrzi a próbálgatásait. 
Készítsük el a megfelelő programot! 

2.22 gyakorlat: Gyújtsunk ki valahány pontot a képernyőn, majd ezután mindig kétszer annyit, mint 
az előző lépésben! Mindig új pontokat kell kigyújtani, és az a cél, hogy végül a lehető legtöbb 
pont világítson! 

2.23 gyakorlat:Imitáljunk hóesést a képernyőre! 

2.24 gyakorlat:Induljon egy pont a képernyő egy kívánt pontjából, és egy biliárdgolyó nyomvonalát 
rajzolja fel! 
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A második fejezet feladatainak egy lehetséges megoldása 


2.1 feladat 
Ha a programot a RUN paranccsal futtatjuk, akkor az 50-es sorra sohasem kerül a 


végrehajtás. Lehetőség van azonban arra, hogy a RUN50 vagy a GOTOSO parancsok 
valamelyikével indítsuk a program futását. Ekkor a képernyőn rögtön megjelenik a kívánt 


felirat. (Természetesen akkor is megjelenik, ha kilistázzuk a programot.) 
2.2 feladat 


19 CLS 

20 X25 : Y-6 

39 SET(X;Y) 

40 X-Xr1 

59 IF X-59 THEN 60 ELSE 30 
60 Xz25 : Y-Yt53 

70 ÍF Y-42 THEN 80 ELSE 30 
89 GOTO 80 


2.3 feladat 


10 CLS 

29 J-i 

SO LPRINTTESEIRÉE: s TEGRDUNI EL ASSE RRINT és 
FPRINT"KEREMK AT I SZAMAIT !" 

40 INPUT X/Y 

so CLs 

60 FRINT"MELYIK PONT VILAGIT ?" 

70 SET(X,Y) 

89 INFUT A,B 

90 IF X-A THEN 199 ELSE 50 

100 IF Y5B THEN PRINT"UGYES VAGY!" : I-0 ELSE 50 

110 I-Iti : IF IC399 THEN 110 

1209 IF J-2 THEN 109 ELSE J:2 

1239 CLS 

140 PRINT"KAT I , FORDULJ EL !" : PRINT : 
PRINT"KÉREM F E R 1 SZAMAIT !" ; 

150 INPUT XIY 

169 GOTO 580 


2.4 feladat 


19 CLS 

20 X-25 

30 FOR Y-6é TO 39 STEP 3 
40 SET(X,Y) 

59 NEXT Y 

60 X5X-41 

70 IF X-C51 THEN 30 

89 GOTO 80 


2.5 feladat 


19 CLS 

20 FOR X-25 TO 50 

30 FOR Y:-6 TO 39 STEP 5 
40 SET(X,Y) 

50 NEXT Y 

60 NEXT X 

79 GOTO 70 
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2.6 feladat 


19 CLS 

20 SET(24,24) 

309 FOR I-1 TO 1008 : NEXT I 
4Z RESETC(24,24) 

58 FOR I-1 TO 1008 : NEXT I 
69 GOTO 20 


A villogtatáshoz szükséges időváráshoz felhasználható a 2.3 feladat megoldásánál már látott, 
feltételes utasítást használó módszer is. 
2.7 feladat 


10 CLS 

29 I-1i 

30 FOR X:30 TO 99 STEP 5 
40 IF I:2 THEN 1308 

50 FOR Y:25 TO 5 STEP -1 
60 RESET(X-5;Y) 

79 NEXT Y 

80 FOR Y-S5 TO 25 


99 SET(X;Y) 
100 NEXT Y 
110 Iz2 


129 — GOTO 200 

1709 — FOR Y-5 TO 25 

149 RESET (X-5,Y) 

150 NEXTY 

160 FOR Y-25 TO 5 STEP -1 
170 SET(X,Y) 

180 — NEXTY 

199 I51 

200 NEXT X 

210 GOTO 210 


2.8 feladat 


19 CLS 

20 I-10 

30 FOR Y53 TO 41 STEP 2 
40 FOR Xz9 TO It? 


59 SET(X,Y) 
69 — NEXT X 
70 I-I-5 
89 NEXT Y 
99 GOTO 99 
2.9 feladat 
19 CLS 
20 I-0 


39 IF I-0 THEN 70 

40 FOR X-B TO 10 

50 RESET ( I-54rX4X,X420) 

60 NEXT X 

70 FOR X-0 TO 10 

80 SET(I4X4X,X420) 

99 NEXT X 

109 I-I45 

110 IF I-195 THEN 30 ELSE 109 
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2.10 feladat 
A 2989-as sorban nulla helyett 0-betű van. 
2.11 feladat 
A 20-as sorban logikai hiba van. A PRINT"X NAGYOBB TIZNEL" utasítás soha nem 
hajtódik végre. 
2.12 feladat 
Sehol!!! A NEXT után a ciklusváltozót nem kötelező kiírni, amennyiben egyértelmű, hogy ez 
a kulcsszó melyik ciklus fejéhez tartozik. 
2.13 feladat 
A 48-es sorban az X és az Y változók értéke a megengedettnél nagyobb. 
A 690-as sorban levő GOTO48 utasítás a ciklusmagba ugrik. Ez tilos! 


Megjegyzés: Egymásba skatulyázott ciklusok esetén az egymás után következő NEXT utasítások 
összevonhatók. Ebben az esetben először a legbelső ciklus, majd az azt tartalmazó ciklus, .. 
változója kerül az egyetlen NEXT kulcsszó után. Ilyenkor a ciklusváltozókat egymástól vesszővel 
kell elválasztani. 
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Harmadik fejezet 


ALAKZATOK A KÉPERNYŐN 


Rajzolási sebesség 


Tanulmányozzuk át a következő programot! 
3.1 példaprogram 


19 CLS . 
20 Xz20 : Y-57 
30 SET(X,Y) z 
XzX41 
40 IF X5990 THEN X-29 : YzY-tri ELSE 30 
59 IF Y-37 THEN 60 ELSE 30 
60 GOTO 60 


. Ez a program egy téglalapot rajzol. Futtassuk le, és ellenőrizzük, hogy ezt kb. 


40 másodperc alatt végzi el! 


. Ugye nem tetszett, hogy milyen lassan rajzolta meg az ábrát?! Az előző 
fejezetben megismertük a ciklusszervezés utasításait. Ezeknek alkalmazásával 


ismét rajzoltathatunk téglalapot a számítógéppel. 
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3.2 példaprogram 


18 CLS 

20 FOR Y-5 TO 36 

30 FOR X-20 TO 87 : SET(X;,Y) : NEXT X 
40 NEXT Y 

539 GOTO 50 


Ha ezt a programot lefuttatjuk, örömmel tapasztalhatjuk, hogy az előzővel 
megegyező méretű téglalapot kb. fele annyi idő alatt sikerül kirajzoltatni (kb. 
29 másodperc). 


Megjegyzés: Az itt és a továbbiakban közölt időértékek csak tájékoztató jellegűek, különböző 
gépeknél néhány másodperces eltérések lehetségesek. A megadott időadatokat érdekes és érdemes 
összehasonlítani a könyv tanulmányozásakor használt számítógépen kapott értékekkel! 


3.1 feladat: Készítsünk olyan programot, amelyik két satírozott téglalapot rajzol minél gyorsabban 
úgy, hogy ezek egy T alakot alkossanak! 


: DEFINT 


Az eddigi programjainkban mindig olyan változókat használtunk, amelyek 
értéke lehetett egész vagy nem egész valós szám is. Ezeket a változókat valós 
típusú változóknak nevezzük. Egy programon belül azonban bizonyos változó- 
kat definiálhatunk egész típusú változókként is. Ezeknek értéke mindig egész 
szám. 

A 3.2 példaprogramot egészítsük ki az alábbi sorral: 


5 DEFINT X,Y 


A fenti DEFINT definiáló utasítás hatására a számítógép az X és az Y változó- 
kat — valamint az összes X-szel, illetve Y-nal kezdődő változót — egész típusú- 
ként kezeli. Az egész típusú változók ábrázolásához kevesebb helyre van szük- 
ség a memóriában, és az azokkal végzett műveletek végrehajtása gyorsabb, mint 
a valós típusú változókkal történőké. Akkor is, ha ezek tartalma csupa egész 
szám! Erről magunk is meggyőződhetünk, mert az előbbi 5-ös sorral kiegészített 
3.2 példaprogram kb. 15 másodperc alatt rajzolja ki a téglalapot. 

Egyelőre csak annyit árulunk el, hogy később majd megismerkedünk olyan 
utasításokkal is, amelyek segítségével tetszőleges téglalap kirajzolásához még 
egy másodpercre sem lesz szükség. . . 

Ha egy programban több olyan változót akarunk egész típusúként definiálni, 
amelyek nevei az ábécé-ben egymás utáni betűkkel kezdődnek, akkor ezt megte- 
hetjük anélkül is, hogy a DEFINT kulcsszó után felsorolnánk valamennyit. 
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Például a 
DEFINT IJ KLM 
utasítás egyenértékű a 
DEFINT I-M 


utasítással. 


3.2 feladat: Készítsünk (8 x 8-as) sakktáblát rajzoló programot! Törekedjünk arra, hogy a számító- 
gép minél gyorsabban végezze el a rajzolást! 
3.3 feladat: Rajzoltassunk a számítógéppel téglalapspirált! 


Megjegyzés: Az egész és a valós típusú változók használatával részletesebben 
a következő fejezetekben találkozunk. 


POINT 


Ismerkedjünk meg a POINT függvénnyel! A POINT(X,Y) értéke — 1, ha az 
(X,Y) koordinátájú pont világít, és 0, ha nem. Ezek alapján fejtsük meg a 
következő program működését: 


3.3 példaprogram 


10 CLS 
29 DEFINT X,Y ú 

30 FOR Y:5 TO 36 

40 — FOR X-29 TO 89 : SET(X,Y) : NEXT X 

59 NEXT Y 

60 FOR Y-g TO 47 

70 — FOR X50 TO 127 

89 IF POINT(X,Y)5-1 THEN RESET(X,Y) ELSE SET(X,Y) 
99 NEXT X,Y 

190 GOTO 199 


Ha sikerült, ellenőrizzük a megfejtést: futtassuk le a programot! 


3.4 feladat: Módosítsuk a 3.3 feladatra adott megoldást úgy, hogy miután megrajzoltattuk a 
téglalapspirált, a számítógép készítse el annak negatívját is! 
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AND és OR 


A POINI(X,Y) függvényutasítás segítségével tehát arra kapunk választ, 
hogy az (X,Y) koordinátájú pont világít-e. A 3.3 példaprogram 80-as sorát 
vizsgálva: 


80 IF POINT(X,Y) -— —1 THEN RESEIT(X,Y) ELSE SEI(X,Y) 


azt láthatjuk, hogyha a feltétel IGAZ, vagyis a pont világít, akkor eloltja azt, 
ha pedig HAMIS, vagyis a pont nem világít, akkor kigyújtja. A POINT(X,Y) 
egy logikai állítás is, amelynek két lehetséges értéke van, az IGAZ és a HAMIS. 
Ennek megfelelően a 80-as sorral egyenértékű a következő sor: 


80 IF POINT(X,Y) THEN RESET(X,Y) ELSE SET(X,Y) 


mivel a feltételes utasítás feltétel része is egy logikai állítás. Az AND és az OR 
logikai műveletekkel logikai állításokat kapcsolhatunk össze, így az IF kulcsszó 
után összetett feltétel is szerepelhet. Ezek segítségével több feltételes utasítást 
eggyel helyettesíthetünk. Erre nézzünk most két példát: 

Az j 


IF X518 OR Xc5 THEN 28 ELSE 98 


utasítás hatására a számítógép a programot a 29-as sornál folytatja, ha az 
X változó értéke nagyobb 10-nél vagy kisebb 5-nél, ha pedig az X változó értéke 
5-nél nem kisebb és 10-nél nem nagyobb, akkor a 99-es sornál. 

Az 


IF X515 AND X €309 THEN 28 ELSE 98 


utasítás hatására a program futása a 29-as sorban folytatódik, ha az X változó 
értéke 15 és 30 közé esik, minden egyéb esetben a 98-es sorra tér rá. Az AND 
és az OR (magyar megfelelőjük az ÉS, illetve a VAGY) kétváltozós logikai 
műveletek, könnyű megjegyezni az ún. igazságtáblázatukat: 


"OR [IGAZ JHAMIS 


HAMISÍ HAMIS Í HAMIS HAÍIS Í IGAZ. IHAMIS 


Tehát egy 4 AND. B típusú logikai állítás csakis akkor IGAZ, ha az 4 és a 
B állítás is IGAZ, egy A OR B típusú logikai állítás pedig akkor IGAZ, ha az 
A és a B állítások közül legalább az egyik IGAZ. 
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3.5 feladat: Rajzoltassunk a számítógéppel egy satírozott négyzetet, amelyik tartalmaz egy üres 
négyzetet! Az ábra kb. 75 másodperc alatt készüljön el. (Ügyeljünk arra, hogy a négyzetek a 
rajzolási lehetőségekhez képest valóban négyzetek legyenek!) 

3.6 feladat: Oldjuk meg a 3.1 feladatot logikai műveleteket tartalmazó feltételes utasítások segítségé- 
vel! 

3.7 feladat: Hol a hiba? 


19 CLS 

29 Xz1i : Y5s2 

30 IF X-Zi29 THEN SET(X,Y) : X-X4ti : GOTO30O 
40 DEFINT X;Y 


3.8 feladat: Hol a hiba? 


19 CLS 

20 DEFINT Z-A 

30 Xzi : Yzi 

40 IF X£55 AND YX35 THEN SET(X,Y) : XzX4r1 s: YzY4H1 : GOTO 40 
50 FOR X-B TO 127 

60 FOR Y:47 TO 0 STEP -1 

70 IF POINT X,Y THEN SET(X,Y) ELSE RESETKX s 4 

89 NEXTX,Y 

799 GOTO 90 


Gyakorlatok a harmadik fejezet anyagához 


3.1 gyakorlat: Gyújtsuk ki a képernyő összes grafikus pontját több különböző módon is! 
3.2 gyakorlat: Satírozott téglalapok segítségével rajzoltassunk F és E betűt úgy, hogy az E betűt 
kétszer annyi ideig rajzolja a számítógép, mint az F betűt! 
3.3 gyakorlat: Osszuk két vonallal négy részre a képernyőt, majd két, csúcsban érintkező részt 
satírozzunk be! Törekedjünk arra, hogy mindez minél gyorsabban történjen. 
3.4 gyakorlat: 1000 darab felkiáltójel jelenjen meg minél gyorsabban a képernyőn! 
3.5 gyakorlat: Rajzoltassunk minél gyorsabban állandó szélességű keretet a képernyőre! 
3.6 gyakorlat: Mozogjon egy pont a képernyő két pontja között felváltva gyorsulva majd lassulva! 
3.7 gyakorlat: Járja be egy pont egy téglalap kerületét, majd tegye ugyanezt ellenkező irányban és 
tizedannyi idő alatt! Ezután ezt ismételgesse! 
3.8 gyakorlat: Rajzoltassunk téglalapspirált szaggatott vonal segítségével a képernyőre! 
3.9 gyakorlat: Készítsünk programot, amelyik téglalapspirált rajzol a képernyőre de úgy, hogy 
először a vízszintes, majd ezután a függőleges vonalakat rajzolja meg! 
3.10 gyakorlat: Írjunk olyan programot, amelyik olyan téglalapspirált rajzol, amelyben a második- 
tól kezdve minden szakasz hossza az azt megelőző szakasz hosszának kétszerese! 
3.11 gyakorlat: Rajzoltassunk egy házat a képernyőre! 
38 12 gyakorlat: Rajzoltassunk a képernyőre minél több különböző nagyságú BEBYZEtet! (A négyze- 
" tek nem érintkezhetnek egymással!) 
3.13 gyakorlat: Jelenjen meg a képernyőn egy ablak, amin a redőnyt állandóan le- és felhúzzák! 
3.14 gyakorlat: A képernyőn három téglalap közül kettő fogy és egy növekszik, majd egy fogy és 
kettő növekszik periodikusan úgy, hogy mindig ugyanannyi pont világít. Készítsük el ezt a 
programot! 
3.15 gyakorlat: Rajzoltassunk működő homokórát a képernyőre! 
3.16 gyakorlat: Rajzoltassunk egy négyzetet és egy egyenest a képernyőre, majd adott időközönként 
jelenjen meg a négyzetnek az egyenesre vonatkozó tükörképe! 
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3.17 gyakorlat: A képernyő közepén jelenjen meg négy darab négyzet, majd mozogjanak ezek a 
képernyő négy sarka felé! 

3.18 gyakorlat: Jelenjen meg a képernyőn egy téglalap, majd csúsztassuk el annak rétegeit egymáson 
úgy, hogy egy paralelogrammához hasonló alakzat adódjon! 

3.19 gyakorlat: Egy vízszintes és egy függőleges szakasz mozogjon egymásra merőlegesen a képer- 
nyőn! pt 

3.20 gyakorlat: Rajzoltassunk a képernyőre 9 szakaszt úgy, hogy azok legalább 28 pontban messék 
egymást! A metszéspontok ne világítsanak. 

3.21 gyakorlat: Rajzoltassunk a képernyőre 5 különböző alakzatot egymás után úgy, hogy bárme- 
lyik két alakzatnak legyen közös pontja! Ha egy kigyújtandó pont rajzolás közben már világít, 
kapcsoljuk ki! : 

3.22 gyakorlat: Gyújtsuk ki valamely sor első száz grafikus pontját, ezután kapcsoljuk ki ezen száz 
pont minden másodikját, általában a k. lépésben minden k. pontot vizsgáljunk meg a századi- 
kig bezárólag, s ha a pont világított, akkor kapcsoljuk ki, ha nem, akkor gyújtsuk ki! 198 ilyen 
lépés után írassuk is ki a világító pontok koordinátáit! 

3.23 gyakorlat: Gyújtsuk ki a képernyő azon pontjait, amelyek X koordinátái 5-nél nagyobbak, de 
15-nél kisebbek, vagy pedig 81 és 93 közé esnek, Y koordinátái pedig 6 és 14 közötti számok! 


A harmadik fejezet feladatainak egy lehetséges megoldása 


3.1 feladat 


109 CLS 

29 FOR Ysz2Z2 TOS 

30 FOR X-19 TO 197 s: SET(X,Y) : NEXT X 
49 NEXT Y 

50 FOR Yzó TO 42 

60 FOR XzS6 TI 65 : SET(X;Y) s: NEXT X 
70 NEXT Y 

89 GOTO 80 


3.2 feladat 


10 CLS 

29 DEFINT I-L 

30 KO 

40 FOR J5i1 TO 4 

59 FOR I-i TOBB 

60 FOR LzI TO 484rI STEP 16 

70 SET(31-L,otktJ) : SET(394L,19-4K-HJ) 
89 NEXT L,I,J 

99 IF K-24 THEN KEKHB : GOTO 40 

199 GOTO 190 


3.3 feladat 


10 CLS 

z0 DEFINT X;Y 

30 X1-0 : X2-47 

40 FOR X-Xi TO X2 : SET(404X,X1) : SET(40-4X2,X) : NEXT X 

50 X15-Xit2 Üj 

68 FOR X-X2 TO X1 STEP -i : SET(40-4X,X2) : SET(40-4X1,X) : NEXT X 
70 X2-X2-2 

82 IF X25:24 THEN 409 

79 GOTO 979 
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3.4 feladat 


19 CLS 

29 DEFINT X,Y 

30 X1-0 : X2-47 

49 FOR X-Xi TÜ X2 : SET(40-4X,X1) : SET(490-4X2,X) : NEXT X 
30 X15-X1-42 A 

68 FOR X5-X2 TO Xi STEP -1i : SET(404X,X2) : SET(494X1,X) s: NEXT X 
70 X2-X2-2 

80 IF X2:24 THEN 40 

99 FOR X-O TO 127 

1909 FOR Y-g TO 47 

110 IF POINT(X,Y)5-1 THEN RESET(X,Y) ELSE SET(X;Y) 
128 NEXT Y,X 

130 GOTO 130 


3.5 feladat 


19 CLS 

20 DEFINT XIY 

390 X531 : Y57 

49 IF Y5310 AND Y-24 THEN 59 ELSE 60 
590 IF X:40 AND X£62 THEN 709 

69 SET(X;Y) 

70 XzX4£1 

89 IF X-99 THEN 49 ELSE X-31 s: YzYt1i 
99 IF YCc41 THEN 40 

199 GOTO 190 


3.6 feladat 


10 CLS 

20 X510 : Y52 

30 IF X£56 AND Y35 THEN 60 

40 IF X565 AND Y35 THEN 60 

59 SET(X,Y) 

60 XzX-41 

70 IF XC108 THEN 30 ELSE X-19 : YzY-41 
80 IF Y-43 THEN 30 

99 GOTO 99 


3.7 feladat 


Amennyiben a program futása során az X és az Y változókat egész típusúnak kívánjuk definiál- 
ni, úgy a DEFINT utasítást értelemszerűen a program elejére kell tenni. 


3.8 feladat 
A 29-as sorban az A és a Z betű sorrendje felcserélődött. 
A POINT kulcsszó után az X és az Y változókat zárójelbe kell tenni. 
A 76-es sorban a SET utasítást az ELSE-ágba, a RESET utasítást pedig a THEN-ágba kell írni 
ha azt akarjuk, hogy ez a sor a vizsgált pontot kigyújtsa amennyiben az nem világított, és 
kikapcsolja ha világított. 
A 88-as sorban a NEXT utasítás után az X és az Y változók sorrendjét fel kell cserélni. 
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Negyedik fejezet 
A SZÁMÍTÓGÉP SZÁMOLNI IS TUD 


Az egész típusú változók 


Eddig főleg olyan feladatokkal talál- 
koztunk, amelyek segítségével-a számí- 
tógép grafikus funkcióit ismerhettük 
meg. Ez nemcsak azért volt fontos, 
hogy a számítógép grafikájának alapjai- 
val tisztában legyünk, hanem azért is, 
hogy jól tudjunk tájékozódni a képer- 
nyőn, ismerjük annak ábrázolási mére- 
teit. Ne feledjük el, a számítógéppel 
folytatott párbeszéd során a gép képer- 
nyője az elsődleges információforrás a 
külvilág, így a mi számunkra is! 


A DEFINT utasítással már az előző fejezetben megismerkedtünk, de egy 
változó egész típusú lesz akkor is, ha a program során végig százalékjelet (4) 
írunk a változó neve után. Ügyeljünk azonban arra, hogyha a DEFINT utasí- 
tással a D változót nem definiáltuk előzetesen egész típusúként, akkor a D és 
a DM változók különböző változókat jelentenek. Erről a következő parancsok 
segítségével akár magunk is meggyőződhetünk: 


D-16.6 
DV716.6 
PRINT DD 
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Megjegyzések: 

— Az utasításokhoz hasonlóan a parancsokat is írhatjuk egy sorba, egymástól kettősponttal elvá- 
lasztva. 

- A PRINT kulcsszó parancs formájában is helyettesíthető kérdőjellel. 

— A számítógépen a tizedesvesszőt a tizedespont helyettesíti! 


A megjegyzéseknek megfelelően tehát az előző három parancsot egyszerre is 
kiadhatjuk: 


D-16.6 : D/5—16.6 : PRINT DD 


A programokban általában kényelmes bizonyos változókat egész GÍBÉLŐELSbs 
definiálni a program elejére helyezett DEFINT utasítással. 

A harmadik fejezetben tapasztalhattuk, hogy az egész típusú változókkal a 
számítógép gyorsabban dolgozik, mint a valós típusúakkal. Bonyolultabb prog- 
ramoknál nagyon fontos lehet, hogy minél gyorsabban lefussanak. (Ugyanak- 
kor ne feledjük azt sem, hogy nem mindig az a legjobb program, amelyik a 
leggyorsabb...) Ezért érdemes kicsit részletesebben foglalkozni az egész típusú 
változókkal, az egész számok ábrázolásával és a velük végzett műveletekkel. 
Ezzel egyúttal megkezdjük a számítógéppel mint számológéppel való ismerke- 
désünket is. 

Az egész számok ábrázolása két részből tevődik össze: a szám számjegyeiből, 
illetve az előjelből. A negatív előjelet mindig megjeleníti a gép a képernyőn, a 
pozitív előjelet viszont nem. A pozitív előjel helyét azonban (egy karakternyi 
helyet) minden esetben kihagyja a szám előtt: 


— 31567 

23489 
4.1 feladat: Készítsünk számláló programot, amelyik megkérdezi, hogy honnan kezdje a számlálást, 
hányasával számoljon, és növekedjenek vagy csökkenjenek az egész számok. Ügyeljünk arra, 


hogy az egymás után megjelenő számok ne túl gyorsan kövessék egymást! Használjunk egész 
típusú változókat! 


Futtassuk az előbbi programot a következő adatokkal: 


Kezdőérték Lépésköz 
[/ 41 
1 Fil 
—111 22 
743 — 89 
19142 4 5100 
— 13446 — 3342 


46 


Ne essünk kétségbe, ha OV Error hibajelzéssel áll le a futás!... Ez azt jelenti, 
hogy az egész típusú változók lehetséges értékeinek korlátait túlléptük. Ezt a 
jelenséget túlcsordulásnak nevezik. 


9 9 Boom 
€BVeéV.0SBEV 
000 900708BBB Be 


eses ELSOGESso a 0A0B0 0"P" e 6 006. 
VEGEVVE--AGOGOSGOG 666 ŐGg e -0 ee0 
9éeG 9 0 e0G.GBGVVLL"" Ab6ó 

VGAEANEP-rEggBtve0WtBe 


4.2 feladat: Az előző program segítségével POTLOSat határozzuk meg az egész típusú változók 
lehetséges értékeinek korlátait! 


Egészrész 


Vizsgáljuk meg, mi történik a következő parancs hatására: 
SETC(120.98,16.78) 


Annak ellenére, hogy a SET utasítás argumentumában nem egész számok 
szerepelnek, ez a parancs mégis végrehajtódik. De vajon melyik pont gyulladt 
ki ennek hatására? Ezt saját magunk is eldönthetjük, ha kitalálunk hozzá egy 
ügyes kis programot! 


47 


Azt, hogy a számítógép hogyan , ke- 
rekít", igen egyszerűen megállapít- 
hatjuk a következő parancsok alap- 
ján: 


AV 74.78 : BU 74.23 
.CY- —6.99 : D4— — 6.87 
PRINT A, B4, CY, DU 


Jegyezzük meg tehát, hogyha egész típusú változónak nem egész számot 
akarunk értékül adni, akkor a változó értéke a szám egészrésze lesz, vagyis az 
a legnagyobb egész szám, amelyik az adott számnál nem nagyobb. 


Aritmetikai műveletek 


A változókkal és a számokkal aritmetikai műveleteket végezhetünk. Az össze- 
adás és a kivonás jelölése a szokásos (-H,—), ezekkel a műveletekkel már 
találkoztunk. A szorzás jele a csillag (:), az osztásé a törtvonal ( / ), a hatványo- 
zásé pedig a felfelé mutató nyíl (1), de egyes géptípusoknál ezt a szögletes 
nyitózárójel ( [ ) helyettesíti. ; 

Az aritmetikai műveletek alkalmazására két példaprogramot mutatunk. Ta- 
nulmányozzuk át ezeket, fejtsük meg működésüket, majd ezután ellenőrzésül 
futtassuk le a programokat! 


4.1 példaprogram 


íg CLS 
20 PRINT"ADJ MEG EGY EGESZ SZAMOT ! 
EN ELDONTOM, HOGY HETTEL OSZTHATO-E." : INPUT AZ 
30 B/SAZ/7 : B/5AZ—-78tBY 
40 PRINT AZ 3 
58 IF BZ-:0 THEN PRINT" NEM "; : REM BY ERTEKE NEM NULLA 
60 PRINT" OSZTHATO HETTEL" 
70 PRINT : PRINT 
89 GOTO 29 
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4.2 példaprogram 


19 DEFINT B,N 

29 CLS 

39 FOR Nzi TO 10 

49 Bs (2CN-H3kN) /10 

50 FOR X- TO B : SET(X,3£N) s: NEXT X 
60 NEXT N 

70 GOTO 70 


Felhívjuk a figyelmet a 4.1 példaprogram 36-as, illetve a 4.2 példaprogram 40-es 
sorában található értékadó utasításokra! A 4.1 példaprogram 5080-es sorában 
szereplő Ba 58 feltétel pontosan akkor IGAZ, ha a B változó értéke nem 
egyenlő nullával. 


4.3 feladat: Végezzük el a következő műveleteket a számítógéppel parancs üzemmódban, majd 
hasonlókkal gyakoroljuk az egész számokkal és az egész típusú változókkal végzett aritmetikai 
műveleteket: 


a) PRINT 230364/9 
b) A 9.2481.42 : PRINT AY A 
c) AV 9.2 : BY —81.42 : PRINT AV3BYW 
d) A4W7-9.2 : AV A9381.42 : PRINT AY 


4.4 feladat: Készítsünk olyan programot, amelyik megadja egy (a program által beolvasott) pozitív 
egész szám összes osztóinak számát, és kiírja az osztókat is! 

4.5 feladat: Írjunk olyan programot, amelyik beolvas négy egész számot, és ezek közül először kiírja 
a párosakat, majd ezután a páratlanokat is! 


A prioritás 


A számítógép az aritmetikai műveletek elvégzésénél egy bizonyos műveleti 
sorrendet tart be az ún. prioritási sorrendnek megfelelően. Vizsgáljuk meg az 
alábbi értékadó utasítást! 


Z — 539:13—3[4/9 : 


Itt először a hatványozást kell elvégezni, ezután a szorzást és az osztást, és végül 
az összeadást és a kivonást: 


. 


27-51 9:13—81/9 
27-53-117—9 
Z7-113 


Ez a sorrend azonban zárójelezéssel befolyásolható. Ekkor a számítógép először 
a zárójelen belüli műveleteket végzi el (prioritási sorrendben!). 
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4.6 feladat: Mennyi lesz a KSZ változó értéke, ha 


a) K/7-456-—-67418t131/12-42 

b) KZ/-456-—-(67418)3131/12-42 
c) KZ/Zz(456-67418)t131/12-42 
d) K7/7456-674t18x131/(12-—-42) 
e) KZ-(456-67418)x131/(12-—42) 
f) KZ/456-(67418)4131/(12-—-42) 
g)  KZ-456-—-(67418)t(131/12-—-42) 


Az aritmetikai műveletek közül a számítógép — ha azt zárójelek nem befolyásol- 
ják - először mindig a hatványozást, másodszor az előjelváltást, azután a 
szorzást és az osztást, végül az összeadást és a kivonást hajtja végre. Az azonos 
prioritású műveletek elvégzésénél a , balról-jobbra" szabály érvényes. 

Találkozhatunk olyan kifejezésekkel, amelyekben aritmetikai és logikai mű- 
veletek, valamint relációk is szerepelnek. Az 


XI3c66/X AND XcIO 


kifejezés értéke például az X— 1 értékre IGAZ, az X — 3 értékre pedig HAMIS, 
hiszen az első esetben az 1 C 6 és az 1 c 18 egyenlőtlenség is teljesül, de a második 
esetben a 27 c 2 nem. Láthatjuk tehát, hogy ilyen esetben először az aritmetikai, 
majd azután a logikai műveletek kerülnek végrehajtásra. Vizsgáljuk még meg . 
a logikai műveletek egymás közötti prioritási sorrendjét is! Készítsünk olyan 
programot, amelynek segítségével el tudjuk dönteni, hogy a következő utasítás- 
ban szereplő logikai műveleteket milyen sorrendben végzi el a számítógép: 


IF X€54 AND Y5 5 OR X5 63 AND Y5 5 THEN 58 


Bizonyára rájöttünk arra, hogy a számítógép először az AND, és utána az OR 
logikai műveleteket hajtja végre, függetlenül azok előfordulási sorrendjétől. Azt 
mondjuk tehát, hogy az AND prioritása nagyobb, mint az OR-é. Ha zárójelek 
nem befolyásolják, akkor az azonos prioritású logikai műveletek elvégzésénél 
is a , balról-jobbra" szabály érvényes. Ha zárójeleket alkalmazunk, akkor elő- 
ször a zárójelen belüli kifejezéseket értékeli ki a számítógép. A fenti utasítás 
tehát egyenértékű az ! 


IF (X.c54 AND Y5: 5) OR (X5: 63 AND Y53 5) THEN 58 
illetve az 
IF (X.c€54 OR X: 63) AND Y5 5 THEN 50 


utasítással. 
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Végezetül, az általános prioritási sorrend a következő: 


ELŐSZÖR: hatványozás 
MÁSODSZOR: előjelváltás 
HARMADSZOR: szorzás, osztás 
NEGYEDSZER: összeadás, kivonás 
ÖTÖDSZÖR: relációk (C,5,—) 
HATODSZOR: logikai műveletek 


4.7 feladat: Hol a hiba? 


10 DEFINT X,Y,Z 
20 7-4 

30 X5150/2 : Y5(7C2)r2 
40 X-(XEYEZ):3 : PRINT X 
59 Z5Z4r1 : GOTO 30 


4.8 feladat: Hol a hiba? 


19 CLS 
20 INPUT"A NEGYZET OLDALA";X 

30 PRINT"A NEGYZET KERÜLETE ES TERÜLETE -";4X;5XX 
"40 PRINT/GOTO2OD 


Gyakorlatok a negyedik fejezet anyagához 


4.1 gyakorlat: Gyújtsuk ki a képernyőn az összes olyan grafikus pontot, amelynek koordinátái 


négyzetszámok! 
4.2 gyakorlat: Készítsünk programot, amelyik bekér öt lottószámot, majd kirajzol egy lottószel- 


vényt, és azon bejelöli a megadott számokat! 

4.3 gyakorlat: A képernyőn megjelenik egy négyzet. Ha elküldjük a 8 és a K számot, akkor a 
számítógép kirajzol egy olyan négyzetet, amelynek oldalai K-ad részei az előző négyzet oldalai- 
nak, ha pedig az 1 és a K számot, akkor az oldalak hosszát K-szorosára változtatja. Írjunk ilyen 
programot! 

4.4 gyakorlat: A képernyőn megjelenik egy 4 x 4-es sakktábla, és annak egyik mezőjében egy L betű. 
A sakktábla mezőit 1-től 16-ig megszámoztuk. Készítsünk olyan programot, amelyik bekéri 
valamelyik mező sorszámát, és az L betűt elhelyezi erre a mezőre! 

4.5 gyakorlat: Írjunk olyan programot, amelyik bekér egy számot, majd kiírja annak — 1-szeresét, 
tízszeresét, négyzetét és ötödik hatványát! Használjunk egész típusú változókat, és igyekezzünk 
elkerülni a túlcsordulást! 

4.6 gyakorlat: Készítsünk olyan programot, amelyik bekér három egész számot, és ezek rögzített 
sorrendje mellett elvégzi a négy alapműveletet az összes lehetséges módon, majd ki is írja az 
eredményeket! 

4.7 gyakorlat: Készítsünk olyan programot, amelyik bekér egy pozitív egész számot (N), majd kiírja 
az első N páratlan szám, illetve az első N köbszám összegét! 

4.8 gyakorlat: Írjunk olyan programot, amelyik bekér egy pozitív egész számot (N), majd ezután 
beolvas N darab számot, és kiírja ezek átlagát! 

4.9 gyakorlat: Írjunk olyan programot, amelyiknek ha megadjuk egy kocka élhosszát, akkor kiírja 
egy táblázatba rendezve a kocka felszínét, térfogatát és éleinek összhosszúságát! 

4.10 gyakorlat: Készítsünk olyan programot, amelyik kiszámolja egy megadott polinom helyettesí- 

tési értékeit a kívánt helyeken! 
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4.11 gyakorlat: Képzeljük magunkat egy, a Föld felé haladó űrhajó pilótájának! A számítógép 
képernyőjén leolvashatjuk a rendelkezésre álló üzemanyag mennyiségét, a Földtől való távolsá- 
got és az űrhajó sebességét. Ha a számítógépnek megadjuk, hogy mennyivel kívánjuk módosí- 
tani az űrhajó sebességét, és azt, hogy mennyi idő teljen el így, akkor kiírja az ennek megfelelő 
értékeket. Cél az űrhajó Földre való sima leszállítása. Készítsük el az ennek megfelelő progra- 
mot! 

4.12 gyakorlat: Készítsünk olyan programot, amelyik egy másodperc értéket átvált nap, óra, perc, 
másodperc formára! 

4.13 gyakorlat: Készítsünk olyan programot, amelyik egy kettes számrendszerbeli számot tízesbe, 
egy tízes számrendszerbeli számot pedig kettesbe vált át! 

4.14 gyakorlat: Készítsünk olyan programot, amelyik két tetszőleges, beolvasott számra elvégzi a 
maradékos osztást! 

4.15 gyakorlat: Írjunk programot, amelyik egy adott számig kiírja a prímszámokat! 

4.16 gyakorlat: Készítsünk programot, amelyik öt beolvasott számot nagyság szerinti csökkenő 
sorrendben kiír! 


. 4.17 gyakorlat: Írjunk olyan programot, amelyik két beolvasott szám legnagyobb közös osztóját és 


legkisebb közös többszörösét meghatározza! 

4.18 gyakorlat: Készítsünk olyan programot, amelyik két adott szám közötti számok közül keres 
egy prímszámot! 

4.19 gyakorlat: Készítsünk programot, SELLAK két megadott szám közül megkeresi azt, amelyiknek 
több osztója van! 

4.20 gyakorlat: Gyújtsuk ki a képernyő összes olyan pontját, amelyek koordinátái 5 és 45 közé 
esnek, de 18 többszöröseivel, valamint a 11 és a 19 közötti számokkal nem egyenlőek! 


A negyedik fejezet feladatainak egy lehetséges megoldása 


4.1 feladat 


10 DEFINT K,S,X 

29 CLS 

30 INPUT"HONNAN KEZDJEM A SZAMLALAST ":K 

40 PRINT : INPUT"HANYASAVAL SZAMLALJAK ";S 

59 PRINT : INPUT" NÖVEKEDJENEK A SZAMOK (41) , 
VAGY CSOKKENJENEK (-1) ";X 

60 IF X5s1 OR X5-1 THEN 8-StX ELSE 50 

70 PRINT K : 
FOR Xz1 TO 199 : NEXT 


BO KEKHS : 
GOTO 78 
4.2 feladat ! 


: Az egész típusú változók lehetséges legkisebb értéke: — 32768, 
lehetséges legnagyobb értéke pedig: 32767. 

4.3 feladat 
a) 25596 b) 749 c) 729 d) 732 
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4.4 feladat 


19 DEFINT I,J,M,N 
29 CLS 
30 INPUT"KEREK EGY POZITIV EGESZ SZAMOT ! , NE "§N 
49 IF N£1 THEN GOTO 30 
59 PRINT : PRINT N;" OSZTOI A KÖVETKEZO SZAMOK :" : PRINT 
60 Jsi : I-0 
70 M-N/J : IF N-MgJ THEN 80 ELSE 99 
80 IF JtJEN THEN I-I41 : FRINT J : GOTO 1090 
ELSE I-I42 : PRINT J;M 
99 JzJ4t1 : IF J$JAN41 THEN 70 
100 PRINT : PRINT"TEHAT"; N;" OSZTOINAK SZAMA ";I 


4.5 feladat 


10 DEFINT I,J 

20 CLS 

30 FRINT : PRINT : PRINT"KEREK NEGY EGESZ SZAMOT !" : 
INPUT I1,I2,I3,I4 : PRINT 

40 J:I1/2 s Ji5:I1-28J s: JzI2/2 : J25zI2-—-28J s 
J-I3/2 : J3-13-28gJ : J-I4/2 : J47-I4-28J 

50 IF JitJ28J38tJ4-1 THEN FRINT"MINDEN SZAM PARATLAN :"; 
TIi;I25I33I4 : PRINT s: GOTO 30 

60 IF J14tJ244J34J4-0 THEN PRINT"MINDEN SZAM PAROS :"; 
I1;I235I5314 : PRINT s: GOTO 309 

70 PRINT"PAROS SZAMOK :"; 

89 IF J1-g THEN PRINTI1; 

799 IF J2-0 THEN FRINTI2;5 

100 IF J3-0 THEN PRINTI3; 

110 IF J4-8 THEN PRINTI4; 

120 PRINT : PRINT"PARATLAN SZAMOK :"; 

139 IF Jisz1 THEN PRINTI1;z 

140 IF J25-1 THEN PRINTI2; 

150 IF J3-1 THEN PRINTI33 

160 IF J4-1 THEN PRINTI34; 

170 GOTO 30 


4.6 feladat 
a) 543 b) —5S14 c) 4481 d) 318 e) -—1778 f) 827 9) 3998 
4.7 feladat 
Az osztás jele nem a kettőspont, hanem a törtvonal (49-es sor). 
A Z — 13 esetben a számolás eredménye még csak 31858, de 2— 14 esetén már 34306 lenne, ami 
túlcsordulást eredményez, hiszen egész típusú változókkal dolgozunk. 
4.8 feladat 
A szorzás jelét, a csillagot mindig ki kell tenni! 
A 49-es sorban a kettőspont helyett törtvonal van. 
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Ötödik fejezet 
TOVÁBB SZÁMOLUNK 


A valós típusú változók . 


Ha egy programban valamely változónév után nem használunk semmiféle 
típusjelet, és a programban sehol sincsen erre vonatkozó típusdefiníció, akkor 
ezt a változót a gép automatikusan valós típusúként kezeli. A teljesség kedvéért 
megemlítjük, bár gyakorlati jelentősége kicsi, hogy a valós típusú változókat is 
definiálhatjuk a változónév után írt felkiáltójellel vagy pedig a DEFSNG utasí- 
tással. 


5.1 feladat: Alakítsuk át a 4.1 feladatra írt programot úgy, hogy alkalmas legyen nem egész valós 
számokkal történő műveletek elvégzésére is! 


Ha az 5.1 feladat programját $ vagy 1 000 000 (vagy — 1 000 000) körüli érté- 
kekkel futtatjuk, akkor érdekes jelenséget figyelhetünk meg. A valós típusú 
változók értékeit a gép kétféle formában írja ki. Az egyik a megszokott forma, 
például: 
i ; 55.6, — 2.467, 52769.3, ... 
Ezt fixpontos számábrázolásnak nevezzük. (Felhívjuk a figyelmet arra, hogyha 
a tizedesponttól balra csak a 8 számjegy állna, akkor ezt a számítógép nem írja 
ki!) . 
A másik pedig a lebegőpontos számábrázolás. Ennek alapja az, hogy tetszőleges 
(nem nulla) valós szám - v:10-" alakra hozható, ahol a v az ún. mantissza, 
1-nél nem kisebb és 10-nél kisebb fixpontos alakban írt valós szám, az n 
nemnegatív egész szám pedig a karakterisztika. Ezt az alakot a gép tvE-tn 
formában írja ki a képernyőre, ahol az E betű elválasztja a mantisszát a 
karakterisztikától. § 
Például a 0,0005; 108; 1,124 - 10713; —9.99 - 102? ilyen alakban jelenik meg a 
képernyőn: 

5E— 04; 1E-t- 06; 1.124E— 13; —9.99E--22 


Természetesen az, hogy a kiíratás melyik formában történik, nem attól függ, 
hogy a gépnek milyen a hangulata, hanem .bizonyos. határok között mindig 
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fixpontos, egyébként pedig lebegőpontos alakban jelennek meg a képernyőn az 
adatok. A számítógép tetszőleges valós típusú változó értékét lebegőpontos 
alakban ábrázolja a memóriájában, ugyanis így sokkal nagyobb számokkal is 
képes műveleteket végezni, mint fixpontos alakban tárolt számokkal. Ezek után 
éppen az a meglepő, hogy bizonyos számokat mégis fixpontos alakban ír ki. Ez 
a számítógépnek plusz feladatot jelent, a felhasználónak viszont nagy köny- 
nyebbséget, hiszen mi sokkal inkább a fixpontos ábrázoláshoz vagyunk hozzá- 
szokva. 


5.2 feladat: Határozzuk meg, hogy a valós típusú változók esetében mely számoknál lép fel túlcsor- 
dulás! Ehhez jól felhasználható az 5.1 feladat programja! 


Megjegyzés: Oldjuk meg a 4.3, illetve a 4.6 feladatokat valós típusú változók felhasználásával is! 


A kiíratás pontossága 

Az előző feladatok megoldása során tapasztalhattuk, hogy a számítógép a 
valós típusú változók értékeit legfeljebb hat értékes jegy pontossággal írja ki, 
ahol a hatodik már lehet kerekített érték is. 

Találkozhatunk azonban olyan feladatokkal is, amelyek megoldásához na- 
gyobb pontosságra van szükség. Erre ad lehetőséget a dupla pontosságú valós 
típusú változók használata. Ezek definiálása vagy a változónév után írt számjellel 
(4) vagy a DEFDBL utasítás segítségével történhet. A dupla pontosságú valós 
típusú változók értékeit a számítógép legfeljebb 16 értékes jegy pontossággal írja 
ki, ahol a tizenhatodik már lehet kerekített érték is. 


Megjegyzés: 

— Ügyeljünk arra, hogy a számítógép csak a négy alapműveletet végzi el dupla pontosságú értékek- 
kel! (A hatványozást és a következőkben ismertetendő belső aritmetikai függvények helyettesítési 
értékeinek kiszámítását nem.) 

- A HT iskolaszámítógép belső számábrázolása kettes számrendszerbeli. Az általunk megadott 
adatokat átváltja kettes számrendszerbe, a műveleteket itt végzi el, az eredményeket pedig ismét 
a tízes számrendszerben kapjuk meg. Ezek az átalakítások sok gépi pontatlanságot eredményez- 
hetnek. Erre láthatunk néhány példát a következő parancsok segítségével: 


A — 5/3 

Adk — 5/3 

Adk — 54£/3 

Adt — 544/34t 
2313 
?313—27 
2934413—27 
2934413—274k 
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A dupla pontosságú fixpontos kiíratás esetén csak annyi a különbség, hogy 
a kiírt szám több értékes jegyet tartalmazhat, a lebegőpontos kiíratásnál ezen 
kívül az E betű helyett a D betű jelenik meg. Például: s 


99999999999.12, — .0000000123, — 1.701411834244556D -- 38, 
3.567898123D— 31 


5.3 feladat: Készítsünk olyan programot, amelynek segítségével meg lehet határozni a következő 
egyenletnek a [2,3] intervallumba eső közelítő megoldását: 


xt—3x2—19-6 


Belső aritmetikai függvények 


Vannak olyan feladatok, amelyek megoldásánál nagy segítséget jelentenek az 
ún. belső aritmetikai függvények. Ezek közül néhány fontosabb a következő: 


— abszolútérték függvény ABS 
— négyzetgyök függvény SOR 


— egészrész függvény INT 


— szinuszfüggvény SIN 
— koszinuszfüggvény COS 


- exponenciális függvény EXP 


— természetes alapú 
logaritmus függvény LOG 
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Futtassuk le a következő példaprogramot: 


5.1 példaprogram 
10 REM A BELSO ARITMETIKAI FUGGVENYEK HASZNALATA 
20 CLS 
30 REM ABS — ABSZOLUTERTEK FUGGVENY 
40 PRINT"ABS(6.7)-"!;ABS(6.7) ,"ABS(-—-3.12)5";ABS(—3.12) 


30 
69 
70 
80 
78 


190 
110 
120 
130 


140 
150 
160 


INPUT A : PRINT"ABS(C";A;p")-";ABS(A) 
IF A-99 THEN CLS$ : GOTO 70 ELSE 50 
REM SE8R - NEGYZETGYŐŰK FUGGYENY 
PRINT"SOR(4)-"3;SOR(4) , "SOR(178.35)-"3;S8R(178.35) 
PRINT"SOR(X) oz Jszt eb 
INPUT"Xz ";§ A : PRINT"SOR("zAz;")z":SOR(A) 
IF A-99 THEN CLS : GOTO 129 ELSE 970 
REM INT - EGESZRESZ FUGGYENY " 
PRINT"INT(4.2)5";INT(4.2) ,"INT(4,6)—":INT(4. 69; 
"INT(—3.6)z"3;INT(—3.6) , "INT(—3.1)-"3INT(—3.1) 
INPUT A : PRINT INT(A) ő 
IF Az-99 THEN CLS : GOTO 1689 ELSE 140 
REM SIN - SZINUSZ FUGGYVENY 


170 PRINT"SIN(3.14)-"5SIN(3.14) ,"SIN(1.57)5-"5SIN(1.57) 
180 FRINT : FRINT"A SZÖGEK ERTEKET RADIANBAN KELL MEGADNI 
199 INFUT A : FRINT SIN(A) 

200 IF A-99 THEN CLS : GOTO 210 ELSE 199 

210 REM COS - KOSZINUSZ FUGVENY 

220 PRINT"COS(3.14)-":COS(3.14) , "COS(1.57)5";COS(1.57) 
230 FRINT : PRINT"A SZÖGEK ERTEKET RADIANBAN KELL MEGADNI 


240 
250 
260 


INPUT A : FRINT COSC(A) 
IF Az99 THEN CLS : GOTO 269 ELSE 249 
REM EXF —- EXPONENCIALIS FUGGYENY 


270 PRINT"EXFP(R)-"5EXP(D) , "EXP(1)-"3EXP(1) 
280 INPUT A : PRINT EXF(A) 
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IF A-? THEN CLS : GOTO 390 ELSE 280 


300 REM LOG - TERMESZETES ALAPU LOGARITMUS FUGGVYVENY 
310 PRINT"LOG(1)—"5LOG(1) , "LOG(2.71)—";LOG(2.71) 
329 INPUT A : PRINT LOG(A) 

330 IF A-99 THEN 29 ELSE 320 


5.4 feladat: Készítsünk programot, amelyik kirajzolja az 


f. 16, 1251 R, xr.[16x 


függvény grafikonját! 


PRINT 


PRINT 


5.5 feladat: Rajzoltassuk ki a szinuszfüggvénynek vagy valamely transzformáltjának a grafikonját 


a [/2Un, 2r] intervallumon! Törekedjünk arra, hogy a grafikon minél szebb legyen! 


Megjegyzés: A negyedik fejezetben már felhívtuk a figyelmet arra, hogyha a SET utasítás argumen- 
tumában (vagyis a SET kulcsszó utáni zárójelek közötti részben) nem egész értékek állnak, akkor 
azoknak a számítógép az egészrészét veszi. Ennek megfelelően a számítógéppel való függvényábrá- 
zoláson azt értjük, hogy a függvény grafikonjának csak néhány pontját, és azokat is csak a megfelelő 
közelítéssel jelenítjük meg a képernyőn. 
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5.6 feladat: Végezzen egy pont harmonikus rezgőmozgást a képernyő két pontja között! 
5.7 feladat: Hol a hiba? 


10 CLS 8 
20 FOR k-BY TO 0 STEP -1i 
30 — Y-LOG(SIN(Kr3.1416/32) 
A4Z — PRINT Y, 

59 NEXT 


5.8 feladat: Hol a hiba? 


10 CLS . 

20 PRINT"ADJAL MEG EGY SZAMOT ! Xz."; : INPUT X 

30 PRINT" AZ X SZAM LOGARITMUSA : "; 

40 REM NAGYOBB-E NULLANAL A SZAM ? : IF X:0 THEN 50 ELSE 
FRINT"EZ NEM JO !" : GOTO 229 , 

59 PRINT"LOG("3X;") -"4LOG(X) 

60 PRINT : GOTO 20 


Gyakorlatok az ötödik fejezet anyagához 


5.1 gyakorlat: Rajzoltassunk egy nagy kört a képernyőre! 

5.2 gyakorlat: Jelenjen meg a képernyőn egy óra számlapja, és az óra nagymutatója, amelyik a 
negyedórákat mutatja! 

5.3 gyakorlat: Jelenjen meg egy olyan pont a képernyőn, amelyik csillapított rezgőmozgást végez! 

5.4 gyakorlat: Ábrázoljuk az 5.3 gyakorlatnak megfelelően mozgó pont kitérés-idő grafikonját! 

5.5 gyakorlat: Készítsünk olyan programot, amelyik beolvas egy legfeljebb négyjegyű egész számot, 
és kiírja azt lebegőpontos alakban! 

5.6 gyakorlat: Készítsünk olyan programokat, amelyek kiszámítják az alábbi egyenletek gyökét 3 
tizedesjegy pontossággal: 


5 x 
a) sinx ——; 
2 


b) coszx — x3; 
c) 2743"44 — 18; 
d) e" — 108 sin x. 

5.7 gyakorlat: Írjunk olyan programot, amelyik egy háromszög egy oldala és a rajta fekvő két szög 
ismeretében kiszámolja a háromszög további adatait! a 

. 5.8 gyakorlat: Készítsünk olyan programot, amelyik valamely belső aritmetikai függvény helyettesí- 

tési értékeiből táblázatot készít! 

5.9 gyakorlat: Készítsünk olyan programot, amelyik egy beolvasott N értéktől kezdve kiírja az 


LV Nr 
N B (14 — ésaz Nr f(1-t— 
N N 


sorozatok következő 18 tagját! 
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Az ötödik fejezet feladatainak egy lehetséges megoldása 


5.1 feladat 


A program megegyezik a 4.1 feladatra adott programmal, az ottani 18-es sor nélkül. 
5.2 feladat 
A valós típusú változókba 


—1.70141E--38 — és  1.76141E-t38 


közötti számokat írhatunk. 
(Az itt megadott értékekre már OV Error hibaüzenettel leáll a program futása.) 


5.3 feladat 


10 CLS 
20 INPUT"Xz ";X 
30 Y-XC4-3£X$X—10 
40 PRINT"A HELYETTESITESI ERTEK :";Y 
530 FRINT : 
GOTO 20 


5.4 feladat 


10 REM TENGELYRAJZOLAS 

20 CLS 

30 FOR Xz0 TO 127 : SET(X,46) s: NEXT X 

40 FOR YzO TO 47 : SET(2,Y) : SET(1,Y) : NEXT Y 
59 REM A FUGGYVENY ABRAZOLASA 

69 FOR X-9g TO 125 

70 YSSOR(16tX) : Y-ABS(Y-47) : SET(X-4H2,Y) 

80 NEXT X 

90 GOTO 909 


5.5 feladat 


19 REM TENGELYRAJZOLAS 

20 CLS 

39 FOR X50 TO 127 : SET(X,23) s: NEXT X 

40 FOR Y:O TO 46 : SET(63,Y) : NEXT Y 

59 REM A GRAFIKON 

60 FOR X-B TO 63 

70 Y:OXSIN(X43.1416/32) : SET(634tX,25-Y) : SET(63-X,231Y) 
89 NEXT 

99 GOTO 99 


5.6 feladat 


. 19 CLS 
29 DEFINT I 
30 FOR I-9 TO 63 
40 SET(63$SIN(I$3.14/32)463,23) : RESET(S3tSIN(It3.14/32)463,23) 
50 NEXT I 
60 GOTO 30 


5.7 feladat 
A 30-as sorban hiányzik a logaritmus függvény argumentumának záró zárójele. 
A program futása ezután is hibajelzéssel fog leállni amikor a K változó értéke eléri a 63-at, mert 
ekkör a logaritmus argumentumában negatív érték lesz. i 
5.8 feladat 
A 49-es sorban levő feltételes utasítás sohasem hajtódik végre az előtte álló REM utasítás miatt. 


99 


Hatodik fejezet 


JÁTSSZUNK A KARAKTEREKKEL! . 


RND 


Számos feladat megoldásához, játék vagy számítógépes szimuláció elkészíté- 
séhez nagy segítséget nyújthat az, ha ún. véletlenszámok állnak rendelkezésünk- 
re. Ezeket egy véletlenszámgenerátor állítja elő, amit az RND függvény segítségé- 
vel hívhatunk meg. Az RND(0) függvényutasítás hatására egy egynél kisebb 
nemnegatív véletlenszámot kapunk eredményül. 


6.1 példaprogram 


T95REM, VEL E TEN S /Z-A MFOK 

20 CLS 

30 XZZ10$kRND(Z) : Y:-RND(9) : Z4HE-RND(0) 

40 FRINTXZ,Y,ZH 

50 REM FIGYELJ A KULONBOZOÓ TIPUSU VALTOZOKRA ! 
60 FOR I-8 TO 29000 : NEXT 

70 GOTO 30 


6.1 feladat: Írjunk olyan játékprogramot, amelyben a gép , gondol" egy 8 és 1 közé eső számot, és 
a játékosnak ki kell találnia. Minden találgatás után a gép írja ki, hogy a játékos által megadott 
szám kisebb vagy nagyobb, mint a generált szám. Találatnak azt fogadjuk el, ha az eltérés 
6,901-nél kisebb. 


Ha például 190-nál kisebb és 98-nél nem kisebb véletlenszámot kívánunk 
előállítani, akkor használhatjuk a 


98 4 16:RND(0) 


utasítást. 


6.2 feladat: Készítsünk a 6.1 feladatéhoz hasonló programot, amelynek segítségével a játékosnak 
a gép által gondolt legfeljebb háromjegyű pozitív egész számot kell kitalálnia! 


6.3 feladat: Módosítsuk a 6.2 feladat programját úgy, hogy a gép által gondolt legkisebb szám 150, 
a legnagyobb pedig 159 lehessen! 
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A 6.2 feladatot egyszerűbben oldhatjuk még az RND(K) függvényutasítás 
segítségével, ami egy K-nál nem nagyobb pozitív véletlen egész számot generál, 
ha a K pozitív szám. A K helyén szere- : 
pelhet tetszőleges aritmetikai kifejezés, 
amelynek aktuális értéke a pozitív 
K szám. 


6.4 feladat: Módosítsuk a 6.1 feladatot úgy, hogy 
a gondolt szám 108 és 1008 közé essen, és a 
számítógép számolja azt, hogy a játékos há- 
nyadik kísérletre találta ki! 

6.5 feladat: Vizsgáljuk meg az RND(K) függvé- 
nyutasítás hatását, ha a K nem egész szám! 


A véletlenszámok segítségével rajzolási technikánkat is tovább tudjuk fejlesz- 
teni, amire egyszerű példa a következő rövid program: 


6.2 példaprogram 


10 REM A KEPERNYO FONTONKENTI VELETLENSZERŰU KIGYUJTASA 
20 CLS f 
30 SET(RND(128)-1,RND(48)—1) sz: 

GOTO 59 


Karaktereket tartalmazó változók 


A számítógép által használt változóknak van egy negyedik típusa is, a karak- 
teres vagy ún. string változók. Ezek értéke legfeljebb 255 karakter hosszúságú 
karakterlánc lehet. A karakteres változókat a többi változótípusoktól a változó- 
név után tett dollárjel ($) különbözteti meg. Például: 


A$, BI$, KAS, ... 


Ha nem akarjuk mindig kiírni a dollárjelet, akkor lehetőség van arra, hogy adott 
betűvel kezdődő változókat karaktertípusúként definiáljunk a DEFSTR utasí- 
tással. 
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6.3 példaprogram 


19 RMKARAKTEREK 
20 DEFSTR S,PF 

30 S-"ABRAKA" : F-"DABRA" 
40 X4$£-"KAKUÜUKKOSORA" 

s CLS 

68 FRINTS;"—":P : FRINTX45£ 


A karaktertípusú változók értékadásánál az értékadó utasítás jobb oldalán 
vagy karaktertípusú kifejezés, vagy — kötelezően idézőjelek közé tett — karakter- 
lánc állhat. Ez a karakterlánc nem tartalmazhat idézőjelet! 


6.6 feladat: Rajzoltassunk négyzetet, amelynek oldalmérőszáma véletlenszám! Ha ezután elküldjük 
az "UJABB?" szót, akkor a gép újabb négyzetet rajzoljon hasonlóan. 


INKEYS$ 


A számítógéppel való párbeszéd továbbfejlesztésére ad lehetőséget az 
INKEYS utasítás. 


6.4 példaprogram 


19 REM PELDA AZ INKEY£: UTASÍTAS HASZNALATARA 
29 CLS 

38 SET(RND(128)—-1,RND(48)—1) 

40 IF INKEY$z-"T" THEN 38 ELSE 409 


A 6.2 példaprogramot úgy módosítottuk, hogy a másodiktól kezdve a követke- 
ző pont akkor gyullad ki, ha a billentyűt lenyomjuk. Az INKEYS utasítás 
segítségével a billenytűzetről legutoljára bejövő egy karakternyi információt 
vizsgálhatjuk meg a következőképpen: 
Az A$-INKEYS utasítás hatására az A$ változó értéke az utasítás előtt 
utoljára leütött billentyűnek megfelelő karakter lesz. (Ha a program indítása 
vagy a legutolsó INKEYS$ utasítás végrehajtása óta nem ütöttünk le egyetlen 
billentyűt sem, akkor az üres karakter.) Az utasítást követően pedig az INKEY 
függvény értéke az üres karakter lesz. 

Ez az utasítás a program futását nem szakítja meg, és hatására a képernyőn 
nem jelenik meg sem kérdőjel, sem a leütött billentyűnek megfelelő karakter. 
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Megjegyzés: AIBREAKI billentyű lenyomását nem tudjuk vizsgálni az INKEYS$ utasítással, mert 
az a program futását megszakítja. 7 


6.5 példaprogram 


10 REM UJABB PELDA AZ INKEY$ UTASIÍTAS HASZNALATARA 
209 CLS 

30 SET(RND(128)—1,RND(48)—1) 

40 X$-INKEY$ 

50 IF X$-"" THEN 40 

60 IF X$z" " THEN 29 ELSE 50 


Az első grafikus pont kigyújtása után a program aszerint folytatódik, hogy 
leütöttünk-e billentyűt, és ha igen, akkor az a volt-e. A 40-es sort addig 
hajtja végre a számítógép, amíg egy billentyűt le nem ütünk. Ha ez a SPACE], 
akkor képernyőtörléssel és egy új pont kigyújtásával, ha bármelyik másik 
billentyű, akkor új pont kigyújtásával folytatódik a program. 


Megjegyzés: Vegyük észre, hogy a számítógép megkülönbözteti a szóközt (SPACE) tartalmazó (" ") 
és az üres ("7") karaktert! Az előbbi tartalmaz egy karaktert, míg az utóbbi egyet sem. 


6.7 feladat: Mi a különbség a következő két program működése között? 


10 REM ...... 1. FROGRAM 

20 CLS 

30 FOR Xz0 TO 127 : SET(X,21) : NEXT X 
40 A$zZINKEY$ 

50 IF A$-"" THEN 40 

60 IF A$-"T" THEN 29 ELSE 40 


10 REM ...... 2. PROGRAM 

20 CLS 

59 FOR Xz8 TO 127 : SET(X,21):: NEXT X 
40 A$zINKEY$ 

59 A$-INKEY$ 

60 IF A$z"" THEN 50 

70 IF A$z"T" THEN 29 ELSE 50 


6.8 feladat: Készítsünk olyan programot, amelyben a számítógép gondol egy 180 és 1000 közé eső 
egész számot, amit nekünk ki kell találni. Miután kitaláltuk a gép által gondolt számot, a gép 
írja ki az ehhez szükséges próbálkozások számát, majd a billentyűzetről beadott információnak 
megfelelően vagy kezdődjék elölről (képernyőtörléssel) a játék, vagy fejeződjék be, és a gép 
"búcsúzzon el"! 
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6.9 feladat: Írjunk olyan programot, amelyik véletlenszerűen generál tíznél nem nagyobb természe- 
tes számokat! A program készítsen vonalas grafikont az egyes generált számokról olyan módon, 
hogy amikor egy újabb, például a 7-es szám generálódott, akkor a 7-eseknek megfelelő oszlop 
"tetején" egy újabb grafikus pont gyullad ki. A számokat addig állítsuk elő, amíg valamelyik 
oszlop a képernyő tetején levő számig nem ér. (Lásd az ábrát!) 


6.10 feladat: Rajzoltassuk véletlenszerűen a számítógépet! Véletlenszerűen kiválasztott kezdőpont- 
ból, véletlenszerű (de legfeljebb 38 grafikus pontnyi) hosszúságú vonalat rajzoljon. Amikor egy 
szakaszt megrajzolt, aÍT] billentyű leütésére folytassa a rajzolást az előbbi rendszer szerint, az 
billentyű leütésére pedig képernyőtörléssel kezdje elölről. 

6.11 feladat: Hol a hiba? j 


10 CLS 

29 RND(g) -Xx 

39 PRINTX,XEX,XxXX : PRINT 
40 FOR I51 TO 309 : NEXT 
59 GOTO 209 


6.12 feladat: Hol a hiba? 


19 CLS j 
29 SET(RND(127) ,RND(47)) : RESET(RND(127) ,RND(47)) 
30 IF INKEYz"T" THEN 20 ELSE 30 


6.13 feladat: Hol a hiba? 


19 CLS : 
DEFINT S,X,Y 
20 X-RND(130) : Y-X/2 
30 IF XzYr2 THEN 49 ELSE 20 
49 SET(X,Y) 
52 SzINKEY£E 
60 IF S-"" THEN 60 
70 IF §-"T" THEN 28 ELSE 50 
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Gyakorlatok a hatodik fejezet anyagához 

6.1 gyakorlat: Egy billentyű lenyomására villogjon három véletlenszerűen kigyújtott pont a képer- 
nyőn. Amikor ismét lenyomunk egy billentyűt, újabb három pont villogjon! 

6.2 gyakorlat: Lenyomunk egy billentyűt, kigyullad egy pont. Ha ugyanazt a billentyűt ismételten 
lenyomjuk, akkor villogni kezd a pont, ha újabb billentyűt, akkor pedig egy új pont gyullad ki. 
Készítsük el ezt a programot! 

6.3 gyakorlat: Mozogjon egy pont véletlenszerűen a képernyőn! Készítsünk ilyen programot! 

6.4 gyakorlat: Készítsünk programot, amelyik egy hatszög csúcsait véletlenszerűen villogtatja! 

6.5 gyakorlat: Írjunk olyan programot, amelyik tetszőleges billentyű lenyomására véletlenszerűen 
kiválasztott helyre rajzol egy háromszöget a képernyőn! 

6.6 gyakorlat: Véletlenszerű időközönként szaladjanak fel vízszintes vonalak a képernyőn! 

6.7 gyakorlat: Jelenjen meg két ablak a képernyőn, amiken a redőnyt véletlenszerűen le-föl húzogat- 
ják! 

6.8 gyakorlat: Szimuláljuk számítógépen a következőt: 10890-szer dobunk egy dobókockával, és 
számoljuk, hogy az egyes számok hányszor fordultak elő. 

6.9 gyakorlat: Készítsünk olyan programot, amelynek segítségével tetszőleges folytonos: vonalat 
tudunk rajzolni a képernyőre! A rajzolást, vagyis az egymás utáni pontok kigyújtását négy 
billentyűvel vezéreljük: [Flfet, (LHe, [lhobbra, [Bl-balra, és ha nem nyomunk le billentyűt, 
akkor arrafelé folytatódjék a rajzolás, amerre legutoljára irányítottuk. 

6.10 gyakorlat: Jelenjenek meg véletlenszerűen a képernyőn az évszakok nevei! 

6.11 gyakorlat: Készítsünk olyan programot, amelyik kiír két véletlénszámot a képernyőre! Ezután 

nekünk össze kell szorozni őket, majd az eredményről a számítógép döntse el, hogy helyes-e. 

6.12 gyakorlat: Írjunk olyan programot, amelyik kijelöl a képernyőn egy osztást, amit nekünk el 
kell végezni. A számítógép ellenőrizze, hogy helyesen számoltunk-e! (A hányados mindig egész 
szám legyen!) ; 

6.13 gyakorlat: Készítsünk olyan programot, amelyik azt méri, hogy milyen gyorsan tudunk egy 
adott jelre lenyomni egy billentyűt! 

6.14 gyakorlat: Írjunk olyan programot, amelynek segítségével két játékos versenyezhet, hogy 
melyiknek jobbak a reflexei! 

6.15 gyakorlat: Ketten játszanak egy dobókockával: A dob, de előzetesen 8 tippel, hogy A hányast 
fog dobni. Ha B tippje és az A által dobott szám megegyezik, akkor B ugyanannyi jutalompon- 
tot kap, mint amennyi a szám volt. Ha a tipp rossz volt, akkor a dobott és a tippelt szám közötti 
eltérésnek megfelelő büntetőpontot vonunk le pontszámaiból. Ezután cserélnek, B dob, A 
tippel stb. Az nyer, aki hamarabb ér el 108 pontot. 

Készítsük el a játéknak megfelelő programot! 


A hatodik fejezet feladatainak egy lehetséges megoldása 


6.1 feladat 


10 CLS 
20 X-RND(B) 
30 PRINT"AZ X SZAMRA GONDOLTAM !" s: PRINT : 
FRINT"TALALD KI X-ET !" 
49 INPUT A 
590 IF A-X5:3.001 THEN PRINT"X KISEBB" : PRINT : GOTO 40 
60 IF X-A5:.O01 THEN PRINT"X NAGYOBB" : PRINT : GOTO 40 
70 PRINT" TALALT !" s: PRINT : 
GOTO 30 
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6.2 feladat 


19 CLS 
29 DEFINT A,X 
30 X-999£RND(Z)--1 . 


40 PRINT"AZ X SZAMRA GONDOLTAM !" : PRINT : PRINT"TALALD KI X-ET 
50 INPUT A 
60 IF X-A THEN PRINT"X KISEBB" : FRINT : GOTO 50 
70 IF X3A THEN PRINT"X NAGYOBB" : FRINT : GOTO 50 
89 PRINT" TALALT !" : PRINT : PRINT : PRINT : 
GOTO 40 
6.3 feladat 
19 CLS 


29 DEFINT A,X 

39 Xzi1iSO4r10xRND(A) 

40 PRINT"AZ X SZAMRA GONDOLTAM ! Va EL E BV ost SA HEG za 
50 INFUT A 


60 IF XZA THEN PRINT" X KISEBB" : FRINT : GOTO 50 
70 IF X:A THEN PRINT"X NAGYOBB" : FRINT : GOTO 50 
80 PRINTTALALT !!!" : PRINT. 
99 STOP 
6.4 feladat 
19 CLS PI 
29 DEFINT A,I,X jú 
30 I-0 : Xz100-4RND(899) 
40 PRINT"AZ X SZAMRA GONDOLTAM !" : PRINT : 
PRINT"TALALD KI X-ET !" : PRINT 
59 IsIti sz: 
INPUT A 
60 IF X-CA THEN PFRINT"X KISEBB" : PRINT :GOTO 50 
70 IF XDA THEN PRINT"X NAGYOBB" : PRINT : GOTO 50 
80 PRINT" TALALT !" : PRINT : FRINT"EHHEZ ";I; 
" DARAB BROBALKOZASRA VOLT SZUKSEGED !" : PRINT : 
99 GOTO 30 
6.5 feladat 


A számítógép a K egészrészét veszi. (Ezt a továbbiakban [XK]-val jelöljük.) Ha [KI] negatív, akkor 
FC Error hibajelzést kapunk. Ha nulla, akkor egy egynél kisebb nemnegatív véletlenszámot, ha 


pedig [IK] pozitív, akkor X-nál nem nagyobb pozitív véletlen egész számot. 
6.6 feladat 


19 DEFINT A-Z 

29 CLS 

30 K-RND(44) 

40 FOR X-B TO 2£K 

59 FOR Y5s35 TO K$3 s: SET(X,Y) s: NEXTY 
60 NEXT X 

70 INPUT As 

80 IF A$-"UJABB" THEN ií9 ELSE 709 


6.7 feladat 


Az első program futtatásakor, ha a vonal rajzolása közben lenyomjuk a billentyűt, akkor 
a rajzolás befejezése után rögtön képernyőtörlés következik és kezdődik elölről a vonalrajzolás. 
A második program futásánál, ha a vonal rajzolása közben lenyomjuk a billentyűt, akkor 
ez az információ a 60-as sorban levő utasítás hatására elvész, így képernyőtörlés csak akkor 


történik, ha a vonal megrajzolása után nyomjuk le a szükséges billentyűt. 
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6.8 feladat 


19 CLS 
20 DEFINT A,I,X 
39 I-0 : X5-100-4RND(B99) 


40 PRINT"AZ X SZAMRA GONDOLTAM !" : PRINT : , 
PRINT"TALALD KI X-ET !" s: PRINT 

50 I-Iti : 
INPUT A 


60 IF X-ZA THEN PRINT"X KISEBB" : PRINT : GOTO 50 
70 IF X5:A THEN PRINT"X NAGYOBB" : PRINT : GOTO 50 


89 PRINT" TALALT !" s: PRINT : PRINT"EHHEZ ";I; 
" DARAB PROBALKOZASRA VOLT SZUKSEGED ." : PRINT : PRINT 
99 PRINT"FOLYTASSAM ? (IZN)" 


1090 X$-INKEY$ 
110 IF X$z"I" THEN 20 
120 IF X$—-"N" THEN PRINT" VISZLAT !" ELSE 100 


6.9 feladat 


19 CLS 

29 DEFINT X,Y 

30 PRINT" É 1 2 3 4 5 6 SA g 9 19" 
40 X-IDHIDXRND(10) : Y547 

50 IF POINT(X,Y)-0 THEN SET(X,Y) : GOTO 40 ELSE YzY-1 

60 IF Y:2 THEN 50 

70 GOTO 70 


6.10 feladat 


19 DEFINT I,K,X,Y 

29 CLS 

30 X-RND(128)-1 : YERND(48)-i 

40 SET(X,Y) 

59 GOTO 120 

60 XizX : YisY : I-RND(30) : KERND(4) 

70 IF kzs4 THEN XzX-6I : S5-1 : IF X2127 THEN X5127 

80 IF Ks3 THEN X-X-I : §5-1 : IF X-0 THEN X-0 

99 IF K-2 THEN YzYtI : S-1 : IF Y547 THEN Y547 

100 IF ksi THEN YzY-I : S-—1 : IF. Y-0 THEN Y-0 

110 IF KKAZ THEN FOR IzY1 TO Y STEP S : SET(X,I) : NEXT I 
ELSE FOR I-X1 TO X STEP S : SET(I,Y) : NEXT I 

120 XSZINKEY$ 

130 IF X$z"/T" THEN 60 

140 IF X$-"U" THEN 20 ELSE 120 


6.11 feladat 
A 20-as sorban az X változót az egyenlőtlenség bal oldalára kell tenni. 

6.12 feladat 
Az INKEY kulcsszó után kötelező a dollárjel kitevése. Érdemes megfigyelni, hogy a 20-as 
sorban a RESET utasítás általában nem azt a pontot oltja ki, amelyiket ezen sor SET utasítása 
közvetlenül előtte kigyújtott! (Ez természetesen csak akkor hiba, ha a feladatunk egy olyan 
program készítése, amelyik a billentyű lenyomására a képernyőn véletlen helyen felvillant 
egy pontot.) 

6.13 feladat 
Az 50-, 60-, 78-es sorok szintaktikusan csak akkor lesznek helyesek, ha az S változót karaktertí- 
pusúként definiáljuk. 
Ha a 29-as sorban az X változó értékének 138 vagy 128 generálódik, akkor a program a 48-es 
sorban hibával leáll. 
Amennyiben a 60-as sorra úgy érkezik a program végrehajtása, hogy előtte nem nyomtunk le 
egyetlen billentyűt sem, akkor itt a program végtelen ciklusba kerül. Ezért célszerű a THEN 
kulcsszó utáni címet 50-re módosítani. 
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Hetedik fejezet I 
LÁNC, LÁNC, KARAKTERLÁNC... 


A karakterláncok összeadása 


Az előző fejezetben megismerkedtünk a karaktertípusú változókkal. Lehető- 
ség van ezek tartalmának összeadására vagy más néven a konkatenációra, ami 
lényegében a karakterláncok összefűzésére szolgál. Így például az 


A$-"LO" : BB—"PATKO" : C$-A$4-B$ 
parancs hatására a C$ változó tartalma "LOPATKO?" lesz. Vigyázzunk! Ez az 


összeadás nem felcserélhető (nem kommutatív)! "LOPATKO" nem egyenlő 
"PATKOLO"! j 


7.1 feladat: Készítsünk olyan programot, amelyik beolvassa egymás után egy ötbetűs szó betűit 
fordított sorrendben (karakterenként), majd kiírja a szót! 
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CLEAR 


Oldjuk meg a következő feladatot! 


7.2 feladat: Írassunk ki a képernyőre 298 darab csillag karaktert (x)! Próbálkozzunk több megoldás- 
sal is! 


Ezt a feladatot megoldhatjuk úgy is, 

— hogy egy PRINT utasításba írunk 200 darab csillag karaktert egymás mellé, 
vagy úgy, 8 § 

— hogy 288 darab PRINT":"; utasítást hajtatunk végre a számítógéppel például 
egy FOR-ciklus segítségével, végül pedig úgy is, 

— hogy egy karaktertípusú változót feltöltünk 280 darab csillag karakterrel, 
például a következőképpen: 


7.1 példaprogram 


19 Asz"! 
20 FOR I5-1 TO 199 


30 ASZAÉR!"át! 
AM NEXT I 


és ezen A$ változó tartalmát akarjuk kiíratni a képernyőre. Ekkor azonban OS 
Error hibajelzést kapjuk. Ugyanezt a jelenséget tapasztaljuk a következő pél- 
daprogram futtatásakor is, ha a C$ változónak olyan karakterláncot adunk 
értékül, amelyben ötvennél több karakter szerepel. 


7.2 példaprogram 


19 INPUT C$ 
20 FRINTC£ " 
28 GOTO íg 


A számítógép bekapcsolásakor automatikusan egy CLEAR 596 parancs hajtó- 
dik végre. Ez 50 karakternyi helyet biztosít a memóriában a karakterláncokkal 
való műveletek elvégzésére, illetve ezek eredményeinek tárolására. Ha a 7.2 
példaprogram futtatása előtt kiadjuk a CLEAR 288 parancsot, akkor a 
C$ változónak legfeljebb 290 karakterből álló karakterláncot adhatunk értékül 
anélkül, hogy hibajelzést kapnánk. A 7.1 példaprogram esetében azonban a 
CLEAR 280 parancs hatására biztosított hely kevés, mivel a karakterlán- 
cok összefűzéséhez még további helyekre van szükség. A CLEAR 4800 
parancs már elegendő helyet biztosít. 

Fontos megjegyezni azt is, hogy a CLEAR parancs (ami utasításként is 
használható) ezen kívül még törli az összes változó értékét és típusát is. Egy 
további hatásával a kilencedik fejezetben foglalkozunk. 
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STRINGS$, ASCII-kódok, CHRS$, ASC 


A 7.2 feladat megoldható a STRING$ függvény segítségével is. Az 
A$-STRING$(298," 77) 


utasítás hatására az A$ változó éppen 200 darab csillag karakterrel töltődik fel. 

Itt és a fejezet további részében az s$ vagy idézőjelek közé tett karakterláncot 
(ami lehet egyetlen karakter vagy az üres karakter is, a karakterlánc pedig nem 
tartalmazhat idézőjelet), vagy karaktertípusú változót, vagy szövegkifejezést (pl. 
A$-- B$) jelöl. Az a, nm, p betűk pedig vagy egy számot, vagy egy változót, vagy 
egy aritmetikai kifejezést (pl. A t-2:C[2) jelölnek. A vizsgált esetekben a számí- 
tógép mindig az a, n, p értékek egészrészét veszi, ezért a továbbiakban ezek 
egészrészéről szólunk anélkül, hogy ezt külön kiírnánk. 

Ezeket felhasználva a STRING$ függvény meghívása kétféle módon lehetsé- 
ges. A ; Í 


STRING$(0,s$) 


függvényutasítás az s$ első vagy egyetlen karakteréből álló p hosszúságú karak- 
terláncot állít elő. (A p 256-nál kisebb nemnegatív egész szám, az 5$ pedig itt 
nem lehet az üres karakter.) 


7.3 példaprogram 


10 A$Z-Z"TATAMI" : B£$—-"A "4A$ : C$sz"g" 

20 DEZSTRINGÉ(11,"??") : Ks7 

30 PRINT Dá; STRING$(5,C$):; STRING$(3,A$) . 
48 PRINT STRING$(K,B$) , STRING$(K—3,D$tB$) 


A 

STRING$(,a) 
függvényutasításban a p értelmezése ugyanaz, mint előbb, az a számról pedig 
a következőket kell tudni: 

A képernyőn megjeleníthető karakterekhez hozzárendeltek egy 256-nál ki- 
sebb nemnegatív egész számot, a karakter úgynevezett ASCII-kódját. A számí- 
tógép tetszőleges karaktert annak ASCII-kódja alapján azonosít. (ASCII- " 
American Standard Code for Information Exchange: az információcsere egy 
szabványos amerikai kódja.) § 

Az első fejezetben már említettük, hogy a képernyőn 16 sorban, soronként 
64 karakter jeleníthető meg egyszerre. 
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léssz 


Egy karaktert tartalmazó mező még 6 részre, 6 
grafikus pontra bontható. 

Ezek mindegyike kigyújtható egy-egy SET utasítás- 
sal. Ha egy karaktermező mind a 6 grafikus pontját 
egyszerre akarjuk kigyújtani, akkor a 191-es 
ASCII-kódot kell megadni. 


7.4 példaprogram 


19 CLEAR 64 

20 REM EGY SOR OSSZES KARAKTERMEZOJENEK KIGYUJTASA 
30 D$-STRING$(64,191) 

49 CLS 

50 FRINT DE 


7.3 feladat: Gyújtsuk ki a képernyő összes grafikus pontját egy másodpercnél rövidebb idő alatt! 


Ez már lényeges előrelépést jelent a harmadik fejezetben megismert rajzolási 
sebességhez képest, de még ezt is lehet fokozni. . . 


Érdekes lenne megtudni azt, hogy a különbö- 
ző ASCII-kódoknak milyen karakterek felelnek 
meg. t 3 


A CHRS függvény ehhez nyújt nagy segítséget. A 
. CHR$(a) 
függvényutasítás az a ASCII-kódhoz tartozó karaktert állítja elő. 
7.4 feladat: Írassuk ki 32-191-ig az ASCII-kódokhoz tartozó karaktereket! Újabb karakter mindig 


egy billentyű lenyomására jelenjen meg. 


3/1 


Megjegyzések: 
— Vizsgáljuk meg az ASCII-kódok jelentését 192—255-ig! 
— A 8-31-es ASCII-kódú karakterek az ún. vezérlő karakterek. Például a 
PRINT CHR3$(23) 
utasítás hatására a számítógép egy sorba 64 helyett csak 32 karaktert ír ki szóközökkel. A 
PRINT CHR$(30) 


utasítás hatására az aktuális kurzorpozíció sorában a kurzor utáni helyek törlődnek. (Kurzornak 
nevezzük a képernyőn mozgó kis vízszintes vonalat.) A 


PRINT CHR$(31) 


utasítás hatására az aktuális kurzorpozíciótól kezdve a képernyő végéig minden törlődik. 


Az ASC(5$) függvényutasítással megkapjuk az 5$ első vagy egyetlen karakte- 
rének ASCII-kódját. Itt sem lehet az s5$ az üres karakter! 


7.5 feladat: Készítsünk olyan programot, amelyik bekér egy karaktert, majd kiírja az ASCII-kódját! 
Tetszőleges billentyű. lenyomására megismétli ezt. 


Karakterláncok összehasonlítása 


Képzeljük el, hogy feladatul kapjuk nevek számítógéppel történő névsorba 
rendezését, azaz karakterláncokat kell összehasonlítani. Erre ezek ASCII-kódja 
segítségével van mód. Egy karakterlánc , nagyobb" valamely másik karakter- 
láncnál, ha az előbbi első karakterének ASCII-kódja nagyobb a másik első 
karakterének ASCII-kódjánál. Ha a két karakter- 
lánc elején azonos karakter(ek) van(nak), akkor 
balról az első különböző karakter kódja dönt. Ha 
egy karakterlánc egy másik karakterlánccal kezdő- 
dik, akkor a hosszabb a , nagyobb". 

Az elmondottaknak megfelelően az alábbi állítá- 
sok IGAZ-ak: 


"KUTYA? c "MACSKA" 
"PIRI? c"PIRIKE" 
"WILMOS" c "ARANKA? 
SRA SZÜBSZ Tk 


7.6 feladat: Készítsünk olyan programot, amelyik beolvas 3 szót, ábécésorrendbe rendezi, majd 
kiírja őket! 
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LEN, LEFTS, RIGHT$, MIDS$ 


Az s$ hosszát megkaphatjuk a LEN függvény segítségével. 
7.5 példaprogram 


10 A$-"40" : B$—"" z: C$-"RABLO" 
20 FRINT LEN(A$) , LEN(B$) 
30 FRINT LEN(A$--B$HC$) , LEN(A$HBHF), A$T" "4C£ 


Az s$ első p darab karakterét a LEFT$(s5$,p) függvényutasítással, az utolsó p 
darab karakterét pedig a RIGHT$(s$,p) függvényutasítással kaphatjuk meg. 
Értelemszerűen a p nem lehet negatív. 


7.6 példaprogram 
10 T$-"LEVELIBEKA" : B$-"" : C$-"PETE" : L-5S 
20 FRINT LEFTE(T$,LH1), "—-", RIGHT$(T$,4) 


30 FRINT LEFT$(B$,3), RIGHTE(T$,12.5) 
4 PRINT RIGHT$(T$4C$,LEN(C$)--4) 


Lehetőség van egy karakterlánc valamely részének kiemelésére a MID$ függ- 
vény segítségével. A 
MID$(s$.n.p) 


függvényutasítással az 5$ n-edik karakterétől kezdődően p hosszúságú karakter- 
láncot emelhetünk ki. A 


MID$(s$,n) 


függvényutasítással pedig az s5$ n-edik karakterével kezdődő és az s5$ további 
karaktereit tartalmazó karakterláncot kapjuk meg. 
Fontos megjegyezni, hogy a karakterláncok karaktereinek számozása 1-től 
kezdődik és nem 0-tól, ennek megfelelően az n pozitív. A p nemnegatív. 
7.7 példaprogram 
10 R$z"RUHAFOGAS" 
29 PRINT MIDE(RE,5,3), MIDE(R$,5) 


30 PRINT MIDÉE(RESZ,2)4" "4MIDE(R$,5,3) 
40 PRINT MID$(LEFT£$("LOTTOHUZAS" , 5) , 2) 


7.7 feladat: Készítsünk olyan programot, amelyik megkeresi két szó közös betűit! 
7.8 feladat: Írjunk olyan programot, amelyik kiírja egy beolvasott szó szótagjainak számát! 
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VAL, STR$- 


A VAL függvénnyel karakterláncot numerikus értékké alakíthatunk át. Ha 
a vizsgált karakterlánc számmal kezdődik, akkor ezt a számot kapjuk eredmé- 
nyül, ha más típusú karakterrel, akkor nullát. 


7.8 példaprogram 


10 T$-"KEREK PEREC" 
29 FRINT VAL(T$) , VAL("561"), VAL("191 KISKUTYA") , VAL("SKODA 125") 


Numerikus értékeket karakterlánccá. tudunk átalakítani a STR$ függvény 
segítségével. 


7.9 példaprogram 


10 K-2.5 : L5—3.14 
20 FRINT Ki; ki; KSSTRE(K); STR$(K); STR$(K) s: PRINT 
30 PRINT STR$(L), STRÉE(SOR(2432)), STR$(2.5C2) 


7.9 feladat: Hol a hiba? 


19 CLEAR 500 

209 I-1i : A$-$ 

30 FOR J51 TO B 

40 IzIx2 

59 NEXT 

60 CLS 

70 FOR J51 TO I 

80 A$ZA$TF : PRINT A$ 
99 NEXT 


7.10 feladat: Hol a hiba? 


19 DEFSTR N 
20 INFUT N 1 
30 FRINT STRING(ASC(N) , CHR(ALMAT6Ó4) : GOTO 20 


7.11 feladat: Hol a hiba? 


19 CLS 

20 INPRUT "A SZO ";A$ 

30 FOR J-LEN(A$) TO 0 STEP -1 
40 FRINT MID$(A$,J,LEN(A$)-Jr1) 
59 NEXT 

69 STOP 
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Gyakorlatok a hetedik fejezet anyagához 


7.1 gyakorlat: Készítsünk olyan programot, amelyik beolvas egy szót, majd kiírja a szó betűit 
fordított sorrendben! ú : 

7.2 gyakorlat: Írjunk programot, amelyik megállapítja, hogy egy beolvasott szövegben hány darab 
A betű van! h 8 i 

7.3 gyakorlat: Készítsünk olyan programot, amelyik beolvas egy szót, majd kiírja úgy, hogy minden 
A betűje helyett csillagok jelennek meg! 

7.4 gyakorlat: Írjunk olyan programot, amelyik beolvas egy szöveget és kiírja azt szóközök nélkül! 

7.5 gyakorlat: Megadunk egy szót csupa nagybetűvel. Készítsünk olyan programot, amelyik kiírja 
csupa kisbetűvel! ú 

7.6 gyakorlat: Írassuk ki közvetlenül egymás mellé a négyzetszámokat 290-ig! 

7.7 gyakorlat: Írjunk: olyan programot, amelyik egy kettes számrendszerbeli számot tízesbe, egy 
tízes számrendszerbeli számot pedig kettesbe vált át! 

7.8 gyakorlat: Írassuk ki kétjegyű számok szorzatát! Ha a szorzat csak háromjegyű, akkor elé egy 
nullát írjon a számítógép. 

7.9 gyakorlat: Írjunk olyan programot, amelyik beolvas tíz számot, majd ezeket folyamatosan, 
oszlopba rendezve kiírja úgy, hogy egy sorba pontosan öt számjegy kerüljön! (Esetleg az 
utolsóba kevesebb.) 

7.10 gyakorlat: A számítógépnek megadunk egy összeadást vagy szorzást a következő karakteres 

formában: 


"344? , "546" 


Készítsünk olyan programot, amelyik kiírja e művelet eredményét! 
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A hetedik fejezet feladatainak egy lehetséges megoldása 


7.1 feladat 


19 DEFSTR A,B 

20 CLS 

30 FRINT"AZ OTBETUS SZO BETUI FORDITOTT SORRENDBEN ?" : PRINT 
40 FOR I5s1 TO 5 : INPFUT B : A-BtrA : NEXT I 

539 PRINT A : PRINT 


7.2 feladat 


19 CLS 
20 FOR I-1 TO 200 : PRINT "e"; : NEXT I 


7.3 feladat 


10 CLEAR 128 

20 A$-STRING$(128,191) 

30 FOR I-1 TO 8 : FRINT A$; : NEXT I 
49 GOTO 40 


(Előfordulhat, hogy ez a program egyes gépeken egy másodpercnél valamivel hosszabb idő alatt 
gyújtja kia képernyő összes grafikus pontját.) 
7.4 feladat 


10 CLS 

20 FOR I:32 TO 191 

30 FRINT CHRE(I), 

40 IF INKEY$z"" THEN 49. 
58 NEXT I 


7.5 feladat 


í9 CLS 
29 INPUT "A KARAKTER ";A$ 
39 PRINT"AZ Asz ";-A$;" KARAKTER ASCII KODJA : "; ASC(A$) 


40 IF INKEY$z"" THEN 40 ELSE 10 


Ha a szóközt tartalmazó karakter ASCII-kódját akarjuk megtudni, akkor a szóközt idézőjelek 
között kell megadni. 
7.6 feladat 


10 CLS 

20 INPUT"A HAROM SZO "; A$, B$, C$ 

39 IF A$P)B$ THEN D$-A$ : A$-B$ : B$-D$ 

40 IF C$:B$ THEN PRINT A$,B$,C$ : STOP 

59 IF C$-A$ THEN FRINT A$,C$,B$ ELSE PRINT C$,A$,B$ 
69 END 
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7.7 feladat 


10 CLSs 

20 INFUT "A KET SZO ";S$,Z$ 

30 J1-LEN(S$) : J2-LEN(Z$) : B$-" " 
40 FOR K1-1 TO Ji 

50 FOR K2-1 TO J2 


60 0$-MID$(S$,K1,1) 

70 IF O$-ZPMID$(Z$,K2,1) THEN 120 

80 LE0 

99 L5sL-41 

190 IF €$-MID$(BE,L,1) THEN 120 

119 IF L5LEN(B$) THEN B$-B$tHO$ ELSE 90 


129 NEXT KZ,K1 
130 PRINT : PRINT"A KOZOS BETUK : ";B$ : PRINT 


7.8 feladat 


19 CLS 

20 Z$-"AEIOU" 

30 INFUT"A SZO ";S£ 

4D JizLEN(S$) : J2-5 : Bász"" 
39 FOR Ki-i TO J1 

60 FOR kzZz1 TO J2 


70 O$-ZMID$(S§F,K1,1) 

89 IF O$zMID$(Z£,K2,1) THEN B$zB$-O$ 

98 NEXT KZ2,K1 

199 PRINT : PRINT"A SZO "; LEN(B$); "  SZOTAGU" : FRINT 
7.9 feladat 


A karaktertípusú változók értékadásánál és a konkatenációnál a dollár karaktert idézőjelek közé 


kell tenni. Az 4$ változó értéke legfeljebb 255 hosszúságú karakterlánc lehet. 
7.10 feladat p 
A STRING és a CHR kulcsszavak után mindig ki kell írni a dollárjelet. 


Ezután ez a program kiszámítja a beolvasott N karakterlánc első karakterének az ASCII- 
kódját. Amennyiben az ALMA nevű változó értéke 6, akkor kiír az előző kód értékének 


megfelelő számú ,,(2" karaktert. 
7.11 feladat 
A J-6 értékre a program hibajelzéssel leáll. 
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I Nyolcadik fejezet 
RUGALMASABB KÉPERNYŐCÍMZÉS 


PRINTO 


A könyv előző fejezeteiben többször említettük, hogy a számítógép képernyő- 
jén 16 sorban soronként 64 karakter jeleníthető meg. A gépnek a 


CLS : PRINT2508,"HAHO" 


parancsot adva, a 7. sor 52. karakterpozíciójától kezdve kiíródik a "?HAHO" 
felirat (500 — 7 x 64-- 52). A képernyő bal felső sarkában van a 6. karakterpozí- 
ció, a nulladik sornak a következő karakterei az 1., 2., ... Ennek megfelelően 
az első sor nulladik karaktere a 64., a tizenötödik sor hatvanharmadik karaktere 
az 1023. karakterpozíció. A PRINTXOI,s5$ utasítással tehát a kurzort (ha az 
I nemnegatív egész szám) az [-edik karakterpozícióra állíthatjuk, majd innentől 
kezdve kiírhatjuk az s5$-et. A kurzor ilyen módon való címzésével az [I-edik 
karakterpozíció előtti helyek nem törlődnek. 

Az utasításban szereplő I számra vagy a helyette álló aritmetikai kifejezés 
értékére 0 c I c 1824 kell hogy teljesüljön, az s$-gel kapcsolatban pedig a hete- 
dik fejezetben elmondottak érvényesek. 


8.1 feladat: Vizsgáljuk meg a PRINTOI,s$ utasítás hatását, ha az I értéke nem egész szám! 
8.2 feladat: Készítsünk olyan programot, amelyik valamilyen karakterekből álló keretben kiírja a 
nevünket és címünket! 


A 8.2 feladat megoldása során bizonyára felvetődött az a gondolat, hogy a 


most megismert utasítás segítségével nemcsak feliratokat helyezhetünk el a 
képernyőn, hanem szabadabban készíthetünk karakterekből álló ábrákat is. 
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8.3 feladat: Rajzoltassuk ki könyvünk kísérő figuráját a képernyőre! 


Tabulálás 


A PRINT utasítás következő fajtája a táblázatok elkészítését könnyíti meg, 
amelynek alakja PRINT TAB(K). A K aktuális értékének § és 255 között kell 
lennie. A számítógép K értékének 64-gyel való osztási maradékát veszi, és ha 
ez nagyobb, mint az aktuális PRINT utasítás sorában a kurzor pozíciója, akkor 
a kurzort az osztási maradéknak megfelelő karakterpozícióra állítja, ha kisebb, 
akkor a gép a TAB(K) utasítást figyelmen kívül hagyja. 


8.4 feladat: Készítsünk programot, amelyik az alábbi táblázatot kirajzolja, és a hiányzó adatokat 
kitölti: ő 


X INT(X) 254X XxX SOR(X) 


un 
a 


an 


DPUUUNPBUWHNN E Er 
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DATA, READ, RESTORE 


Most megismerkedünk egy újabb értékadási móddal, 
amelynek különösen akkor lehet nagy haszna, ha a prog- 
ram töbszöri futtatásánál a változóknak mindig ugyan- 
azt az értéket akarjuk adni. 


8.1 példaprogram 
18 REM A DATA ES A READ UTASÍTÁSOK HASZNALATA 
29 CLS 
30 READ X,Y,Z,A$,B$,C$ 
49 PRINT X9Y,Z : FRINT As:B$;C$ 
59 DATA 14,3.14,-—-2,A," " KUKAC 


A 30-as és az 50-es sorok együttesen egyenértékűek az alábbival: 
30 X-—14:Y—-3.14:2—-—2:A$-"A? : B3—" " : C$5-"KUKAC" 


Ügyeljünk arra, hogy a DATA utasításban felsorolt, vesszővel elválasztott 
adatok típusai megegyezzenek a READ utasításban a nekik sorrendben megfele- 
lő változók típusaival! A DATA utasítást a programban bárhol elhelyezhetjük. 
Egy programban több DATA és READ utasítás is szerepelhet: 


8.2 példaprogram 


19 CLS 

20 READ X,A$,BE 

30 READ Y,Z,C$ 

40 PRINT X,Y,Z : PRINT A$;B$;C$ 

59 DATA 14,A 

60 DATA " — " 3.14,—-2,KUKAC 

70 DATA "EZT MAR NEM HASZNALJA FEL A PROGRAM !" 


Ha egy DATA utasításban kevesebb. adat van, mint ahány változó a READ 
utasításban, akkor a gép a következő DATA utasítás adatait kezdi beolvasni. 
Amennyiben ilyet nem talál, akkor a program hibajelzéssel leáll. 

A DATA utasításban csak akkor kell a karakterláncot idézőjelbe tenni, ha 
az szóközzel (" ") kezdődik vagy végződik. Az idézőjelek közé tett karakterlánc 
nem tartalmazhat idézőjelet! ; 
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8.5 feladat: Oldjuk meg a 8.3 feladatot DATA és READ utasítások segítségével is! 

8.6 feladat: Írassunk ki a képernyőre egy legalább két sorból álló szöveget hasonlóan, mint az a 
televízió BETŰREKLÁM-jában látható! 

8.7 feladat: Rajzoltassunk ki a képernyőre egy egyszerű ábrát, majd lássuk el feliratokkal! Az 
adatokat DATA utasításokkal tároljuk. 


8.8 feladat: Készítsünk programot, amelyik a képernyőn egy bábut jelenít meg és annak valamelyik 
testrészét mozgatja! 


Egy programban szerepelhet a RESTORE utasítás is. Ennek hatására a 


következő READ utasításnál a legelső DATA utasítás első elemét kezdi beol- 
vasni a program. ; 


8.3 példaprogram 


19 CLS 

29 RESTORE 

30 READ A£ j 

49 IF A$z"VEGE" THEN STOP 

30 FRINT A$ : PRINT 

60 X$zINKEY$ 

70 IF X$z"T" THEN 30 

990 IF X$z"E" THEN 19 ELSE 68 
98 REM A HET TÖRPE 

199 DATA SZUNDI , SZENDE , HAPCI , MORGO , TUDOR , KUKA , VIDOR 
110 DATA VEGE 


8. 9. feladat: Hol a hiba? 


10 CLS 

20 FOR I-0 TO 15 

30 PRINTEI4t64,I : PRINTEI4644-35". SOR" 
40 NEXT 

39 GOTO 50 


8.10 feladat: Hol a hiba? 


10 CLS 

29 FOR Xsi TO 19 

39 READY : 
PRINTX$64--X,Y 

40 NEXT 

59 DATA A,B,C,D,E,F,6,H,I 


8.11 feladat: Hol a hiba? 


19 CLS 

20 FOR K-i TO 16 

30 PRINTEKt64—6 , Kt64—1; 
48 NEXT 

50 GOTO 50 
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Gyakorlatok a nyolcadik fejezet anyagához 


8.1 gyakorlat: Jelenjen meg a képernyő különböző helyein a "VILLOG" felirat! 


8.2 gyakorlat: Készítsünk olyan programot, amelyik megkérdezi, hogy hova és milyen szöveget írjon 
ki a képernyőre, és ezután végre is hajtja azt! 


8.3 gyakorlat: Rajzoltassunk egyszerű figurát karakterekből! 
8.4 gyakorlat: Oldjuk meg a 8.3 gyakorlatot SET és DATA utasítások segítségével! 


8.5 gyakorlat: Rajzoltassuk ki néhány kémiai vegyület szerkezeti képletét a képernyőre! 


8.6 gyakorlat: Rajzoltassunk olyan térképet a képernyőre, amelyen Budapest határa és a Duna 
vonala látható! 


8.7 gyakorlat: Készítsünk programot, amelyik a logaritmusfüggvény grafikonját rajzolja ki koordi- 
náta-rendszerben! 


8.8 gyakorlat: Módosítsuk a 8.4 feladat megoldását úgy, hogy általunk megadott kezdőértéktől, 
kívánt lépésközzel íródjanak ki egy billentyű lenyomására a táblázat sorai! 


8.9 gyakorlat: Jelenjen meg négy négyzet a képernyőn, majd véletlenszerűen ugráljon egyikből. a 
másikba egy felkiáltójel! 


8.10 gyakorlat: A képernyőn megjelenő 9 x 9-es sakktáblán véletlenszerűen lépkedjen egy bábu! 
A bábu grafikus pontokból álljon. 


8.11 gyakorlat: Készítsünk stoppert a képernyőre! Az Ha billentyű lenyomására induljon, az 
billentyű lenyomására álljon meg, a [0] billentyű lenyomására pedig nullázódjon. 


8.12 gyakorlat: Készítsünk olyan programot, amelyik kiír 16 darab, DATA utasításokkal tárolt 
számot egymás alá, majd mindegyik mellé a négyzetét, és végül ezek mellé a köbét! 


8.13 gyakorlat: J. elenjen meg 58 darab véletlenszerűen generált karakter a képernyőn egymás mellett, 
majd fordított sorrendben tűnjön el! 


8.14 gyakorlat: Rajzoltassunk véletlenszerűen kiválasztott karakterből egy betűt a képernyőre! Egy 
billentyű lenyomására ezt ismételje a program. 


8.15 gyakorlat: Rajzoltassunk véletlenszerűen kiválasztott karakterekből egy betűt a képernyőre! 
Egy billentyű lenyomására ezt ismételje a program. (Ez a gyakorlat különbözik a 8.14 gyakor- 
lattól!!!) 

8.16 gyakorlat: Készítsünk olyan programot, amelyik kiír a képernyő közepére egy véletlenszámot 
véletlenül kiválasztott karakterekből álló keretben! 


8.17 gyakorlat: Generálja a számítógép véletlenszerűen a 128-tól 191-ig terjedő ASCII-kódú karak- 
tereket, és közben rakja azokat a helyükre egy 8 x 8-as táblázatba úgy, hogy annak a bal felső 
helyére a 128-as, mellé a 129-es ... stb. ASCII-kódú karakter kerüljön! 


8.18 gyakorlat: Rajzoltassunk egyszerű figurát a képernyőre grafikus karakterekből! 


8.19 gyakorlat: Készítsünk olyan programot, amelynek ha megadunk egy -val, -vel ragos szót, 
amelynek szótöve sz-re végződik, akkor kiírja a szót valamely sor végére elválasztva! 
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A nyolcadik fejezet feladatainak egy lehetséges megoldása 


8.1 fela. 
Ha 


dat 
az I értékének egészrésze negatív vagy 1823-nál nagyobb, akkor hibajelzést kapunk, egyéb- 


ként pedig az adott I értékének egészrészével dolgozik a program. 
8.2 feladat 
19 DEFINT I,J 


8.3 fela 


CLS 

REM KERETRAJZOLAS A 

FOR I-9 TO 63 : FRINTEGI, "a"; : FRINTG14k64-4I, "4"; : NEXT I 
FOR J51 TO 14 : PRINTEJK6Ó4, "x"; : FRINTEJKOGA4TOZ3, "4"; : NEXT J 
REM SZOVEGIRAS A KERETBE 

FPRINTE414,"N E V"; : PRINTES542,"C I M"; 

HOTO 80 


dat 


A bevezetőben megtalálható ennek a feladatnak a megoldása! 


8.4 fela 


90 
100 


dat 


DEFINT I 
CLS 
x-0 
PRINT" X";TAB(14):"INT(X) "3: TAB(27) s "ZS$X":5TAB(40) ; "XX": 
TAB(53) 3 "SOR(X)" § ; 
FOR I2G TO 63 t PRINT "-"; s: NEXT. I 
FOR I:52 TO 15 
PRINTEI$64,X:;TAB(153) ; INT(X) ; TAB(26) ; 258X; TAB(39) ; Xi6X5 
TAB(5S2) ; SOR(X) ; 
XzX4.5 
NEXT I 
GOTO 199 


A 70-es sorban azért van kurzor címzés, hogy közvetlenül a gondolatjelekből álló vonal alatt 
kezdődhessen a kiíratás. 
8.5 feladat 


DEFINT I 

CLS 

READ I 

IF 11024 THEN 70 

READ A£ 

PRINTEI, As; : GOTO 30 
GOTO 70 

REM AZ ALAKZAT ADATAI kő 


99 DATA Z86,etHHRXR 349 FARA H413,8 T $,477,§8 V 0 £ S4Z,tttti, 1924 
8.6 feladat 

10 DEFINT I 

20 CLS 

38 READ I 

40 IF I51024 THEN 109 ELSE PRINTEI,""; 

50 READ A$" 

60 IF A$-"8" THEN 30 

70 FOR I1-0 TO 109 : NEXT 

80 FRINT As; 

99 GOTO 50 

190 GOTO 100 

110 REM A KIIRANDO SZÖVEG 

120 DATA 279,K,E,D,V,E,5," " B.AASRSAST,USN KK," ",! 4525, 
TSOSVSÁA SB BeI," "LL ES,LSKSESS," "PROGRA MOSZSA ST, 
a KT AVAG N ÜGN EK e SE tt da2za 
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8.7 feladat 


10 DEFINT I / 

29 CLS 

30 REM AZ ABRA MEGRAJZOLASA 

40 READ I1 

50 IF I1-1024 THEN.70 

60 READ IZ : SET(I1,I2) : GOTO 40 

70 REM FELIRATOK 

89 READ I 

99 IF I-1024 THEN 110 

108 READ A$ : PRINTEI,AS$; : GOTO 80 

119 GOTO 110 

120 REM AZ ABRA ADATAI 

130 DATA 60,15,58,14,56,13,55,12,55,10,56,7,58,6,60,6,62,7,63, 
9,64,10,65,11,64,12,63,13,02,14 

149 DATA 58,16,56,15,54,15,51,15,48,16,43,19,44,21,49,21,51,20, 
53,19,55,18,56,17,58,16 

150 DATA 63,15,65,15,68,15,72,16,76,17,78,18,79,19,77,290,75,21, 
72,21,69,22,65,18,64,17,62,16 

162 DATA 60,17,62,19,62,21,60,23,58,25,55,27,52,29,49,31,47,33, 
45, 35,43,37,42,40,41,43,40,47,1024 

170 DATA 65,EZ EGY VIRAG,857,4———— EZ A ...,1924 


8.8 feladat 


19 DEFINT I 

20 CLS 

39 REM A FEJ RAJZOLASA 

40 FRINTEZBS, " dedésedbát": : PRINTEZBSHTAROA, "  dtdbábatab "gs 
PRINTE28BSt64, "4-A A "3 : PRINTEZOSTIZB "4 T 0 8"z 2 
FRINTEZSSTI92, "4 VO 8"; 

58 FOR I-O TO 3090 : NEXT 

60 PRINTE28BSt46B,"—"; : PRINTEZ2884192,"0O" 3 

70 FOR I-ü TO 3009 NEXT 

88 FRINTE285468," : PRINTEZBBHI92,"V" § 

93 GOTO 50 


8.9 feladat 
A 3080-as sorba pontosvessző helyett vessző kell. Ha a PRINT utasítás listájának a végére 
pontosvesszőt írunk, akkor az a kiíratás után nem emel sort. 

8.10 feladat , 
Az Y változót karaktertípusúként kell definiálni. A DATA listájában a szükségesnél eggyel 
kevesebb elem áll. 
Érdemes megvizsgálni azt, hogy mi történik akkor, ha a 30-as sorban a PRINT kulcsszó után 
a , 2" jelet is kitesszük... 

8.11 feladat 
A program szintaktikus hibát nem tartalmaz, futásának eredménye mégsem az lesz, mint amit 
az első ránézésre várnánk. Azért, mert ha a PRINT utasítás segítségével az 1923. karakterpozí- 
cióba írunk, akkor a számítógép mindenképpen végrehajt egy soremelést. 
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Kilencedik fejezet 


MAGASABB DIMENZIÓK 


Tömbök 


Módosítsuk az 1.6 feladatot úgy, hogy nem 4, hanem 24 pont koordinátáit 
kell megadni, majd ezután kigyújtani ezeket a pontokat! 

Eddigi ismereteink birtokában természetesen megoldható ez a feladat is, de 
bizonyára nem lelkesedünk érte túlságosan, hiszen 2 : 24 — 48 darab változó 
használatára lenne szükség. Használhatunk azonban ún. indexes változókat 
vagy más néven tömböket, és ezek segítségével már egyszerűen megoldható a 
probléma. Definiálhatunk a — 2 : 24 változó helyett — 2 darab, egyenként 24 
elemből álló tömböt, és a pontok koordinátáit ezekben tárolhatjuk. Ezek vala- 
mely elemére az X(J), illetve az Y(J) formában hivatkozhatunk. A tömbök 
indexezése nullával kezdődik, tehát a 24 elemű X tömb elemei: X(0), X(1), X(2), 
. . ., X(22), X(23). Ennek megfelelően az X tömb J-edik eleme az X(J), ahol. 
6SJS23. A tömbelemekkel ugyanúgy dolgozhatunk mint a változókkal, és 
azokhoz hasonlóan a tömböket is definiálhatjuk egész típusúaknak, valós típu- 
súaknak, duplapontosságúaknak vagy karaktertípusúaknak. 

A tömbök méreteit a DIM utasítással definiálhatjuk. 


9.1 példaprogram 


19 REM AZ 1.6 FELADAT MODOSITASA 

29 DEFINT I,X,Y 

30 CLS 

40 DIM X(23),Y(23) 

59 PRINT"KEREM A 24 PONT KOORDINATAIT !" 

60 FOR I5-9 TO 23 : INPUT X(I),Y(I) : NEXT I 
79 CLS 

89 FOR I-0 TO 23 : SET(X(I),Y(I)) : NEXT I 
99 GOTO 909 


Megjegyzés: Ha egy tömb méreteit nem definiáljuk, akkor a számítógép automatikusan 11 eleműnek 
veszi, tehát indexének lehetséges legnagyobb értéke 190 lehet. 


9.1 feladat: Módosítsuk a 9.1 példaprogramot úgy, hogy 24 különböző pont koordinátáit kérje be 
a számítógép, majd ezután gyújtsa is ki őket! 

9.2 feladat: Véletlenszerűen jelenjenek meg a hónapok nevei a képernyő közepén! 

9.3 feladat: A 6.9 feladatra adott megoldásunkat módosítsuk úgy, hogy az oszlopok növekedése ne 
lassuljon, a számok kiíratásához pedig használjuk a PRINT utasítást! 
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A 9.1 példaprogramban használt X és Y tömbök egydimenziósak voltak. 
Használhatunk azonban két- vagy többdimenziós tömböket is. A kétdimenziós 
(például 4 oszlopból és 5 sorból álló 4 x 5-ös) S tömb elemeire az S(I,J) formá- 
ban hivatkozhatunk. Az S(2,3) tehát a tömb 2. oszlopának 3. eleme. A sorok . 
és az oszlopok számozása itt is nullával kezdődik! 


b. 1. 
OSZLOP ! OSZLOP ! OSZLOP ! OSZLOP 


2.sor s6G2Isc12 s(32 


xAÁA XK 


3.sor sys] vő WZ S(23) scG9 


SES 
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jó S(24) 1ISC34). 


4.sor seg 8 CL 


A következő példaprogramunkban a 128 x 48-as K tömböt feltöltjük 6 és 1681 
közé eső véletlen egész számokkal. A tömb K(X,Y) elemét feleltessük meg a 
képernyő (X,Y) koordinátájú pontjának, és pontosan akkor gyújtsuk ki azt, ha 
a neki megfelelő tömbelem értéke öttel osztható: 


9.2 példaprogram 


10 DEFINT K,X,Y : DIM K(127,47) 
29 CLS : 
FRINTG6£64-5, "FELTOLTOM A TOMBOT !" 
30 FOR X5-9 TO 127 : FOR Y-0 TO. 47 : K(X,YIERND(190) : NEXT Y,X 
49 CLS 
59 FOR X50 TO 127 
609 — FOR Y-0 TO 47 
70 KSK(X,VI/5 
89 IF SxKsK(X,Y) THEN SET(X,Y) 
99 NEXT Y,X 
199 GOTO 190 
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9.4 feladat: Írassuk ki egy 9 x 9-es tömb elemeit a képernyőre többféle elrendezésben is! (A tömb 
elemeit előzetesen töltsük fel véletlenszámokkal!) 


Általában akárhány dimenziós tömböket is használhatunk. A dimenziószám- 
nak egyedül az szab határt, hogy a tömb elférjen a memóriában. 


Megjegyzés: Ha egy többdimenziós tömb egyik indexének értéke sem lehet nagyobb 19-nél, akkor 
ezt a tömböt nem kell a DIM utasítással definiálni. Ezt általában mégis tanácsos megtenni, mert 
így a tömb számára kevesebb helyet foglalunk le a memóriában. 


A DIM utasításban szereplő tömbök 
indexei nemcsak konkrét számok, ha- 
nem változók, illetve aritmetikai kifeje- 
zések is lehetnek. Ezek aktuális értéké- 
nek nemnegatív számoknak kell lenni- 
ük akkor, amikor a DIM utasítás végre- 
hajtásra kerül. Ezt nevezik dinamikus 
tömbdefiniálásnak. 


9.5 feladat: Készítsünk olyan programot, amelyik 
beolvas N darab számot, majd ezek közül kiír- 
ja a hárommal oszthatókat! Az N bemenő 
adat legyen. 


CLEAR 


Tanulmányozzuk át a következő példaprogramot! 
9.3 példaprogram 


19 DEFINT I,N,X 
29 CLS 
30 INPUT"HANY DARAB SZAM LESZ ":;N : N-N-i 
"Ag DIM X(N) 
5340 FOR I-9 TO N : INFUT X(I) : NEXT I 
60 CLS ; 
70 FPRINTEZ$k64, "A HAROMMAL OSZTHATOK :" : PRINT 
80 FOR I:-D TON : 
XzXC(ID/3 : 
IF X(I)D)—-3£X THEN FRINT X(I), 
70 NEXT I 
108 FRINTE€14464, "HA FOLYTATOD, NYOMD LE A T-BILLENTYUT ! "3; 
110 A3-INKHEY£ 
120 IF A$-"T" THEN 1309 ELSE 1109 
120 CLEAR 
149 GOTO 10 
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Észrevehettük, hogy ez a program megoldása lehet a 9.5 feladatnak, de tartal- 
maz egy olyan utasítást, amellyel már a hetedik fejezetben megismerkedtünk, 
ezúttal azonban új szerepe van. Próbáljuk ki, hogy mi történik, ha a 1308-as 
sorból elhagyjuk a CLEAR utasítást, és úgy futtatjuk le a programot! 


A hibajelzés oka az volt, hogy amikor a program másodszor érkezett a tömböt 
definiáló DIM X(N) utasításhoz, a számítógép az egyszer már definiált X töm- 
böt akarta újradimenzionálni. Ez csak úgy lehet, ha előtte a CLEAR utasítás 
segítségével a tömb korábban meghatározott méretét töröljük. (Ne feledjük 
továbbá azt sem el, amit már a hetedik fejezetben láttunk, hogy a CLEAR 
utasítás ezen kívül még törli az összes változó típusát és értékét is!) 


9.6 feladat: Hol a hiba? 


10 CLS 

20 PRINTE6G64t64,"A 13-NAL KISEBB POZITIV EGESZEK :" 
30 FOR Izi TO 12 

49 A(I)-sI 

59 NEXT I 

60 FOR J-12 TO 1 STEP -1 

70 PRINT A(J), 

89 NEXT J 
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9.7 feladat: Hol a hiba? 


10 


FOR Iz1 TOS : 
FOR J5s1 TOS : 


n 
o 
x 
Az 
u" 
- 
adj 
o 
un 
. 


B(I,J,K,LYERND(10) : 
NEXT L,K,J,I 


9.8 feladat: Hol a hiba? 


20 
30 
40 
50 
60 
70 
89 


CLsS 
INPUT N : DIM A(N) 
FOR J51 TÖN 


A(J)zJgJ : PRINT SOR(A(J))/7A(D) 
NEXT 
FOR kzi TO 309 : NEXT 


GOTOZO 


9.9 feladat: Hol a hiba? 


10 
20 


VELETLEN-RND (29) :DIM TOMB(VELETLEN) : OT-5 

CLS . 

INPUT EGESZZ,FEL ,DUPLAFRECIZH,STRINGECSKE: 

CLS 

MENTO/-EGESZ//16 : EGESZ7-ABS(EGESZ7.—MENTO/t16) 

ALLJ-VELETLEN : INDULJ-INT(SOR(VELETLEN) /0T) 

FOR ROHANJ-INDULJ TO ALLJ 
TOME ( ROHANJ ) -—FELRDUPLAPRECI Z4—-ROHANJ 
PRINTGEGESZ7464--VELETLEN , CHR$ (ASC(STRINGECSKEL ) ) ; 
TOMB ( ROHANJ ) 


1090 NEXT ROHANJ 
110 REMELEM,HOGY TETSZETT ! 
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Gyakorlatok a kilencedik fejezet anyagához 


9.1 gyakorlat: Írassuk ki a képernyőre a "VELETLEN?" feliratot, de a betűk véletlenszerű sorrend- 
ben jelenjenek meg! 


9.2 gyakorlat: Készítsünk programot, amelyik bekér 160 nevet, majd véletlen párosításban kiírja 
azokat! 


9.3 feladat: Jelenjen meg 28 véletlenszám a képernyőn a generálás sorrendjében, majd ugyanezek, 
de csökkenő sorrendben! 


9.4 gyakorlat: Készítsünk olyan programot, amelyik kiírja a PASCAL-háromszög első 19 sorát! 


9.5 gyakorlat: Egy tanuló ellenőrzőjében 18 tantárgy számára tantárgyanként 6 osztályzat beírására 
van lehetőség egy hónapban. Készítsünk programot, amelynek segítségével az ellenőrzőt helyet- 
tesíthetjük, jegyeket írhatunk be, illetve meg is nézhetjük, hogy valamely tantárgyból milyen 
jegyek vannak beírva! 


9.6 gyakorlat: Végeztessünk a számítógéppel 1008 darab lottószám húzást, majd ezután kérésre 


mondja meg a program, hogy valamely számot hányszor húzott ki! 


9.7 gyakorlat: Hajtassuk végre 1888-szer a számítógéppel az RND(50) függvényutasítást, és grafiku- 
san ábrázoljuk a kapott véletlenszámok eloszlását! 


9.8 gyakorlat: Készítsünk programot, amelyik egy adott számig kiírja a prímszámokat! 


9.9 gyakorlat: Készítsünk programot, amelyik beolvas 16 darab számot, majd kiírja az ezeknek 
megfelelő ASCII-kódú karaktereket, ha ilyenek léteznek! 


9.10 gyakorlat: Készítsünk programot, amelyik egymás után bekéri egy szó betűit, majd kiírja 
azokat ASCII-kódok szerint sorrendbe rendezve egy újabb szó formájában! A szó hossza 
bemenő adat legyen. 


9.11 gyakorlat: Írjunk olyan programot, amelyik 28 véletlenszerűen kiválasztott betűből véletlensze- 
rűen kiválaszt ötöt, ezeket összefűzi egy szóvá, majd kiírja a képernyőre! Ezután az( UJ billentyű 
lenyomására új szót ír ki, a billentyű lenyomására pedig új betűkészlettel kezdi elölről. 


9.12 gyakorlat: Rajzoltassunk öt darab 4 betűt a képernyőre grafikus (128-191 ASCII-kódú) 
karakterekből! : 


je 
9.13 gyakorlat: Készítsünk programot a MEMOÓRIA-játékra! 
9.14 gyakorlat: Készítsünk programot a TORPEDÓ (vagy más néven TENGERI CSATA)-játékra! 


9.15 gyakorlat: Végeztessünk a számítógéppel 1000 darab lottószám húzást! Ezután jelenjen meg a 
képernyőn vagy számszerűen vagy grafikusan szemléltetve (attól függően, hogy mit kértünk) 
az, hogy az egyes számokat hányszor húzta ki a számítógép. 


9.16 gyakorlat: Készítsünk olyan programot, amelyik beolvas 18 szót, majd hosszúságuk szerint 
sorrendben kiírja őket! 


9.17 gyakorlat: Készítsünk olyan programot, amelyik beolvas 16 egész számot, majd úgy írja ki 
egymás alá őket, hogy az azonos helyiértékű számjegyek egymás alá kerüljenek! 


9.18 gyakorlat: Készítsünk nyelvtani gyakorló programot, amelyik a j-t vagy az ly-t tartalmazó 
szavak helyesírását gyakoroltatja! 


90 


Kösz 


zer 


A kilencedik fejezet feladatainak egy lehetséges megoldása 


- 9.1 feladat 


19 CLSs 

20 DEFINT I,J,X,Y 
30 DIM X(23),Y(23) 
40 
50 
60 
70 
89 
909 


FOR I-9g TO 
INPFUT X(ID,Y(I) 
IF I-G THEN 119 
FOR J-O TO I-1 
IF X(I)-X(J) AND Y(I)-Y(J) 
PRINT"ILYEN MAR VOLT !" : 
NEXT J 
NEXT I 
CLS 
FOR I-0 TO 
GOTO 140 


23 


199 
110 
120 
150 
140 


235.3 SET(XC(I)GY(I)) 3 


9.2 feladat 


10 DEFSTR A : DIM A(11) 

29 A(D)-"JANUAR" : A(1)-"FEBRUAR" : 
A(Z) "APRILIS" : A(4)-"MAJUS" : 
A(6) s" JULIUS" : A(7) "AUGUSZTUS" 
A (9) S"OKTOBER" : A(10)-"NÖOVEMBER" 


PRINT"KEREM A 24 PONT KOORDINATAIT !" 


THEN 
GOTO 60 


NEXT I 


A(2)- "MARCIUS" : 


A(5) "JUNIUS" : 


: A(8)-"SZEPTEMBER" 
: A(11) "DECEMBER" 


Y:-47-XC(I) 


39 CLS 
40 PRINTE6t64-420,A(RND(12)—1) 
59 FOR I-1 TO 300 : NEXT 
60 GOTO 30 
9.3 feladat 
19 CLS 
29 DEFINT I,X,Y 
309 FOR I-1 TO 19 : PRINTEStIX5,I : NEXT I 
40 IZRND(10) : X(I)D5XC(I)Hr1 : XZIZHIODKI : 
590 IF Y:2 THEN SET(X,Y) : GOTO 40 
60 GOTO 60 


A programból látható, hogy a számítógép megkülönbözteti az X változót és az X tömböt. 


9.4 feladat 
19 DIM A(9,9) 
29 FOR I-9 TO 9? : FOR J-O TO 9? : A(I,J)-RND(9) : NEXT J,I 
30 CLS 
40 FOR I-8 TO 9? : FOR J-B TO 9 : FRINT A(I,J); : NEXT J,I 
59 FOR 1-0 TO 9 : FOR J-0 TO 9 r PRINTE(I46) KGAFZRJ LACI, JJ); 
60 FOR J-O TO 9 : FOR I-0 TO 9 : FRINTE(I46) k64--ZOHZRJ S A(J, I 
70 GOTO 70 
9.5 feladat 
10 DEFINT I,N,X 
29 CLS 
30 INPUT"HANY DARAB SZAM LESZ ":N : N-N-i 
4g DIM XN) 
59 FOR I-O TON : INPUT X(I) : NEXT I 
69 CLS 
70 FPRINTE3$64, "A HAROMMAL OSZTHATOK :" : FRINT 
89 FOR I-0 TON 
99 X5-XC(ID/3 
100 IF X(I)D-3£X THEN PRINTX(I), 
119 NEXT I 
120 8TOP 


NE 


XT TÉT 
NEXT I,J 
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9.6 feladat 
A 11-nél nagyobb elemszámú tömböket definiálni kell. 
9.7 feladat 
Mivel a négydimenziós B tömb méreteit nem definiáltuk, ezért a számítógép azt automatikusan 
egy 
11x11x11x11-es 


tömbként definiálja. Ekkora tömb a memóriában nem fér el, ezért kapunk hibajelzést. Ha a 
B tömböt a 


DIM B(5,5,5,5) 


utasítással a program elején definiáljuk, akkor az már működőképes lesz. 

9.8 feladat 
Az A(8) tömbelem értéke 8 (amennyiben korábban nem adtunk neki más értéket), ezért az 50-es 
sorban hibajelzést kapunk. 
Ha az A tömb méretét egyszer már definiáltuk egy programban, akkor újradefiniálás előtt a 
korábbi méretet egy CLEAR utasítással törölni kell. Ezt az utasítást beírhatjuk például a 25-ös 
sorba. 


9.9 feladat 
. A változónevek nem tartalmazhatnak BASIC-kulcsszavakat! 
(VELETLEN - LET, LEN TOMB - TO 
STRINGECSKE - STR, STRING MENTO - TO) 
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Tizedik fejezet 


EGY PROGRAM PROGRAMOKAT IS 
TARTALMAZHAT 


Egy program megtervezése 


Írjunk együtt programot a következő feladatra: 

Mozogjon véletlenszerűen egy bábu a képernyőn megjelenő 8 x 8-as sakktáblán! 
Ez a feladat alapvetően két kis program kidolgózását kívánja: 

1. Sakktáblarajzoló 5 a 

2. Bábumozgató 


Vizsgáljuk meg egyes részleteiket közelebbről! 

1. A sakktáblarajzoló programot még további részekre bonthatjuk: 
Rajzolást vezérlő 

Négyzetrajzoló 


Ehhez tervezzük meg a sakktábla méreteit! Egy mezője — a grafikus pont 
alakját figyelembe véve — legyen 10 x 5-ös. Ennek megfelelően ezek bal felső 
pontjainak koordinátái (A, B): 7" 


(9) — U90  ... GO9 
(65)  U9A .. (05) 
(4.35) (CIB359) — ... (035) 


Az egyes mezőket ezekkel a koordinátákkal fogjuk jellemezni. 

Pontosan azokat a részeket kell fehérre festeni, amelyek első koordinátájának 
tizedrésze és a második koordinátája egyszerre páros vagy egyszerre páratlan. 
Ezt felhasználva a sakktáblarajzoló program a következő: 
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10.1 példaprogram 


10 REM SAKETABLAT RAJZOLÓ FROGRAM 
z0 CLS 

30 DEFINT A-Z 

40 REM A RAJZOLAST VEZERLOŐ RESZ 

38 FOR A-g TO 79 STEP 19 

60 FOR B-O TO 35 STEP 5 


70 XzA/20 : Y5-B/2 

89 IF A-20xX AND B-2XY THEN 100 

99 IF AP20£X AND B:2tY THEN 100 ELSE 150 
199 REM NEGYZETRAJZOLO 

119 FOR I-9 TO? 

120 FOR K5g TO 4 

130 SET(AtI,BrK) 

140 NEXT K,I 


159 NEXT B,A 
169 GOTO 160 


2. A bábumozgató programot is két részre bonthatjuk: 
Mozgatást vezérlő 
Báburajzoló 


Először a 10 x 5-ös mezőben egy 9 grafikus pontból álló bábut tervezzünk. 
Ennek a bábunak a koordinátái az (A,B) mezőben: 


(A--4,B-4-1), (A45,B--1), (A--6,B-1) 
(A44B--2), (A45B--2) 
(A--3,B--3), (A14,B--3), (A45,B--3), (A--6,B--3) 


Készítsük el a programot úgy, hogy fehér mezőben 
ezeket a pontokat kikapcsoljuk, feketében pedig 
kigyújtjuk. 


1. 
59 — IF POINT(AtX,B$Y) THEN RESET(AtX,BrY) ELSE SET(ArX,BEY) 
60 NEXT,I 
70 GOTO 70 
89 DATA 4,1,5,1,6,1,4,2,5,2.3.,3.4.53.5.Z3.653 
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Vegyük észre, hogy ezt a programot ugyanazon értékekre kétszer egymás után 
lefuttatva kirajzolja a bábut, és utána le is törli! 

. A bábumozgatás vezérlésének megírása már nem nehéz feladat, így a bábu- 
mozgató program következő: 


10.3 példaprogram 


19 REM BABUMOZGATO 

20 Az(RND(B8)-1) 10 : Bs(RND(B8)—1)k5 

30 REM BABURAJZOLO 

40 RESTORE 

59 FOR I-1 TO 9 

60 — READ XIY 

70. IF FOINT(A4X,B$Y) THEN RESET(A4X,B$HY) ELSE SET(AtX,BrY) 
BO NEXT I 

99 FOR Iz1 TO 200 : NEXT 

1090 REM BABURAJZOLO 

110 RESTORE 

120 FOR I5i1 TO? 

130 — READ X,Y 

1409 IF FPOINT(AtX,BtY) THEN RESET K(A--X,B-Y) ELSE SET(A-tX,B-Y) 
159 NEXT I ! 

160 GOTO 20 

170 DATA 4,1,5,1,60,1,4.2.5.2.3.3.A3.S 3053 


10.1 feladat: A fejezetek eddigi példaprogramjainak felhasználásával készítsünk olyan programot, 
amelyik véletlenszerűen mozgat a képernyőn megjelenő 8 x 8-as sakktáblán egy bábut! 
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Szadrátitok 


Az előző problémára megoldásként adott programban előfordul olyan prog- 
ramrész (a báburajzoló), amit többször is leírtunk. Jó lenne, ha ezt csak egyszer 
kellene elvégezni, és amikor szükség van rá, mindig csak hivatkoznánk az 
egyszer leírt programrészre. 

Az is látható, hogy ezt a programot több kisebb, már előre elkészített részből 
állítottuk össze. Az előbbi gondunk egyszerűen megoldható, és az ilyen típusú 
programszerkesztés lényegesen megkönnyíthető a szubrutinok felhasználásával. 

A szubrutinok bizonyos értelemben önálló programrészek, alprogramok, 
amelyekre mint BASIC-programokra, minden eddig megismert szabály érvé- 
nyes. A szubrutint a főprogramban elhelyezett GOSUB sorszám utasítással 
hívhatjuk meg, ahol a sorszám a szubrutin kezdő sorának sorszáma. A szubru- 
tinnak tartalmaznia kell legalább egy RETURN utasítást, amelynek végrehajtá- 
sakor a vezérlés a szubrutint meghívó GOSUB utasítást követő utasításra 
adódik át. 

A 10.1 feladatot szubrutinok felhasználásával a következőképpen lehet meg- 
oldani: 


10.4 példaprogram 


10 REM SAKKTABLAN BABUT MOZGATOÓ PROGRAM 
29 CLS 

30 DEFINT A-Z 

40 GOSUB 709 

39 GOSUEB 228 

69 GOTO 50 

70 REM SAKKTABLAT RAJZOLÓ RESZ 

89 REM RAJZOLAST VEZERLO RESZ 

70 FOR A-B TO 79 STEP 10 

190 FOR B-9g TO 35 STEP S 


1108 X5A/2ú : Y-B/2 
120 IF A-20£X AND B-Z2$tY THEN GOSUB 160 
13508 IF A:29£X AND B:2£Y THEN GOSUB 160 


140 NEXT BA 
150 RETURN 
160 REM NEGYZETRAJZOLO 
179 FOR I-9g TO 7 
189 — FOR KkzO TO 4 
199 SET(AtI,B-HK) 
299 NEXT K,I 
210 RETURN 
. 229 REM BABUMOZGATO 
230 A-(RND(8)—1)x10 : Bz(RND(8)—1) 5 
240 GOSUB 280 
250 FOR Izi TO 200 : NEXT 
260 GOSUB 280 
270 RETURN 
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280 REM BABURAJZOLO 

279 RESTORE 

209 FOR I-1 TO? 

310 READ X,5Y 

szo IF POINT(ArX,BtY) THEN RESET(A4X.B-$XY) ELSE SET(AHX,B-HY) 
330 NEXT I 

349 RETURN 

350 REM A BABU ADATAI 

360 DATA 4,1,5,1,651,4,25S,z,3z3.9d5 35933 


A 10-60-as sorokat tekinthetjük egy főprogramnak. Ez meghívja a 
SAKKTABLAT RAJZOLO RESZ 
elnevezésű szubrutint, ami megrajzolja a sakktáblát, majd állandóan ismételve 
meghívja a 
BABUMOZGATO 
szubrutint, ami a bábu rajzolását és mozgatását végzi. A sakktáblarajzoló 
szubrutin többször meghívja a 
NEGYZETRAJZOLO 
szubrutint, a bábumozgató rész pedig a 

.  BABURAJZOLO 

.. szubrutint. 


Megjegyzés: Az utolsó mondatunkban leírtakat szubrutinok egymásba skatulyázásának nevezzük. 


Érdemes megvizsgálni, hogy mi történik akkor, ha a 10.4 példaprogramból a 
60-as sort töröljük, és a programot lefuttatjuk! 
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A hibaüzenet oka az, hogy a főprogramból a GOSUB utasítás nélkül jutottunk 
el a 1708-es sorban levő RETURN utasításhoz. Ennek az elkerülésére példát 
láthatunk a következő programvázlatban, aminek tanulmányozása hasznos a 
szubrutinok alkalmazásához is: 


10.5 példaprogram 


19 REM PROGRAM SZUBRUTINOKKAL 
29 REM A FOFROGRAM A 19-6890 SOROKBAN 


B REM AZ ELSO SZUBRUTIN MEGHIVAÁSA KÖVETKEZIK 
70 GOSUR 20090 
109 AZ ELSO SZUBRRUTIN VEGREHAJTASA UTAN IDE TERUNK VISSZA 


150 REM UJRA AZ ELSO SZUBRUTIN MEGHIVASA KÖVETKEZIK 
169 GOSUB 2000 : REM IDE TERUNK VISSZA 


230 REM A MASODIK SZUBRUTIN MEGHIVASA KÖVETKEZIK 
249 .GOSUB 2500 j 
230 REM A MASODIK SZUBRUTIN VEGREHAJTASA UTAN IDE TERUNK VISSZA 


600 END : REM A FROGRAM VEGE 


2090 REM AZ ELSO SZUBRUTIN UTASÍTASAI KÖVETKEZNEK 


2320 RETURN : REM VISSZATERES A FOFROGRAMHOZ 


2500 REM A MASODIK SZUBRUTIN UTASITASAI - KÖVETKEZNEK: 


2700 RETURN : REM VISSZATERES A FOFROGRAMHOZ 


10.2 feladat: Készítsünk olyan programot, amelyik véletlenszerűen rajzol vagy egy véletlen hosszú- 
ságú vonalat, vagy egy véletlen nagyságú téglalapot a képernyőre, majd ezután az ÍI] billentyű 
lenyomására ezt ismétli, az billentyű lenyomására pedig leáll! 

10.3 feladat: Írjunk olyan programot, amelynek bemenő adatként a T, H, TH, HT értékek valame- 
lyikét megadva rendre egy nagy T betű, egy nagy H betű, egy nagy T és egy nagy H betű, illetve 
egy nagy H és egy nagy T betű rajzolódik ki a képernyőre! 
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Érdemes a korábbi fejezetek gyakorlatai és feladatai közül megkeresni azokat, 
amelyek megoldásainak egyes részletei többször ismétlődnek, vagy a program 
jól elkülöníthető részekre bontható, és ezeket szubrutinokkal is megoldani! 


10.4 feladat: Készítsünk olyan programot, amelyik kiír öt darab, keretben elhelyezett lottószámot! 

10.5 feladat: Készítsünk olyan szubrutint, amelyik valamilyen alakzatot rajzol a képernyőre! Ezt a 
szubrutint felhasználva írjunk olyan programot, amelyben tetszőleges billentyűt leütve, a 
képernyőn véletlen helyen, véletlen nagyságban vagy kirajzolja az alakzatot, vagy az alakzat- 
nak megfelelő helyet töröl! 


Kapcsoló utasítások 


Futtassuk le a következő példaprogramot! 


vá 

:  10.6 példaprogram 
19 CLS 
20 INFUT I 
30 ON I GOTO 199,200,309 : REM KAFCSOLO 
40 STOP 
1929 FRINT"Iz1" : STOP 
200 PRINT"I-2" : STOF 
300 PRINT"I-3" s: STOP 


Tapasztalhattuk, hogyha az I változó értéke I, 2 vagy 3, akkor a vezérlés rendre 
a 1008-as, 2800-as, vagy a 3008-as sorra adódik át. Ha az I változó értéke nem egész 
szám, akkor annak egészrészét veszi, ha negatív, akkor a program hibajelzéssel . 
leáll, ha pedig nulla vagy nagyobb mint három, akkor a 40-es sorral folytatódik 
a program. . 

Ha a 10.6 példaprogram 1080-as, 2800-as, 3800-as soraiban szubrutinok kezdőd- 
nek, akkor azokat a 


38 ON I GOSUB 199, 290, 300 


utasítással hívhatjuk meg. Ebben az esetben a szubrutint befejező RETURN 
utasítás után mindig a 49-es sorra adódik vissza a vezérlés. 


10.6 feladat: Írjunk olyan programot, amelyik beolvas egy szót, majd 
az [1] billentyű lenyomására kiírja annak hosszát, 


a [2] billentyű lenyomására kiírja a szó magánhangzóit, 

a [3] billentyű lenyomására kiírja a magánhangzók számát, 

a [4] billentyű lenyomására kiírja a szót visszafelé, 

az15] billentyűt lenyomva pedig új szó megadását várja! A lehetséges választásokról állandóan 
tájékoztató legyen a képernyőn. 
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10.7 feladat: Hol.a hiba? 


19 CLS 

20 FOR 1-8 TO 1909 

30 FPRINTEO, I; 

49 GOSUB 68 : GOSUB 80 
50 NEXT 

68 SET(i115,21) 

70 RETURN 

80 RESET(11,21) 

99 RETURN 

193 END 


10.8 feladat: Hol a hiba? 


. 19 CLS 

20 GOSUB 30 : GOTO 20 
.30 SET(22,31) 

40 GOSUB 69 

50 RETURN 
, 60 RESET(22,31) 

70 RETURN 


Gyakorlatok a tizedik fejezet anyagához 


10.1 gyakorlat: Készítsünk olyan programot, amelyik beolvas N darab számot, csökkenő are 
rendezi és kiírja a képernyőre őket! Az N bemenő adat legyen. 

10.2 gyakorlat: Készítsünk programot, amelynek segítségével éves költségvetésünket tartjuk nyil. 
ván! 

10.3 gyakorlat: Mozogjon három négyzet egymástól függetlenül véletlenszerűen a képernyőn! 

10.4 gyakorlat: Jelenjen meg a képernyőn öt ajtó. Ezeket véletlenszerűen nyitják és csukják. Készít- 
sük el ezt a programot! 

10.5 gyakorlat: Készítsünk órát a képernyőre szubrutinok felhasználásával! 

10.6 gyakorlat: Mozogjon egy bábu a képernyőn! 

10.7 gyakorlat: Véletlenszámokkal töltsünk fel egy 6 x 6-os tömböt. Válasszuk ki minden sorból a 
legkisebb elemet, majd közülük írjuk ki a legnagyobbat, ezután minden oszlopból válasszuk 
ki a legnagyobb elemet, majd ezek közül írjuk ki a legkisebbet! 

10.8 gyakorlat: Készítsünk olyan programot, amelyik bekéri egy háromszög három csúcspontjának 
a koordinátáit, és kirajzolja a háromszöget! j 

10.9 gyakorlat: Írjunk olyan programot, amelynek segítségével két 50 jegyű számot össze tudunk 
adni! 

10.10 gyakorlat: Írjunk olyan programot, amelynek segítségével két 28 jegyű számot össze tudunk 

szorozni! 

10.11 gyakorlat: Készítsünk olyan programot, amelyiknek ha megadunk egy születési dátumot és 

a mai dátumot, akkor kiszámolja a két időpont között eltelt napok számát! 
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A tizedik fejezet feladatainak egy lehetséges megoldása 


10.1 feladat 


19 REM SAKKTABLAT RAJZOLÓ PROGRAM 
20 CLS 

30 DEFINT A-Z 

40 REM A RAJZOLAST VEZERLO RESZ 

59 FOR A-8f TO 78 STEP 10 

68 FOR B-O TO 535 STEP 5 


78 X5A/2R : Y-B/2 

80 IF A-20£X AND B-2£Y THEN 1809 

9 IF A:Z2OrX AND B:-28$£Y THEN 108 ELSE 158 
198 REM NEGYZETRAJZOLO 

119 FOR 1-8 TO? 

120 FOR K-B TO 4 

130 SET(A4tI,BHK) 

140 NEXT K,I 


150 NEXT B,A 

160 REM BABUMOZGATO RESZ 

170 A5-(RND(8)—1)xi0 : Bs(RND(8)—1)35 

180 REM BABURAJZOLO 

192 RESTORE 

200 FOR Iz1i TD 9 

219 — READ X,Y 

220 — IF POINT(AtX,BHY) THEN RESET(ArX,BtY) ELSE SET(ArX,BEY) 
230 NEXT I 

240 FOR I51 TD 200 : NEXT 

250 REM BABURAJZOLO 

260 RESTORE 

270 FOR Isi1 TO 9 

280 — READ X/Y : 

2909 — IF POINT(AtX,BHY) THEN RESET(AtX,B$Y) ELSE SET(AHX,BHY) 
309 NEXT I 

318 GOTO 1709 

5329 DATA 4,1,5,1,6,1,4,2,5,2.3.3.4.3.553.653 


10.2 feladat 


19 REM FOPROGRAM 

20 CLS 

30 IF RND(2)-1 THEN GOSUB 89 ELSE GOSURB 120 
AZ PRINTEG970 , "FOLYTATOD ? (IZ/N) "; 

50 A$zINKEYs ő 

60 IF A$-"I" THEN 20 

70 IF A$-"N" THEN STOF ELSE 50 

89 REM VONALRAJZOLOÓ SZUBRUTIN 

70 X-RND(45)-1 

100 FOR Yeg TO 427 : SET(GY5XI tt NEXT YV 

119 RETURN 

129 REM TEGLALAFRAJZOLOÓ SZUBRUTIN 

130 X:RND(45)-1 : Y-RND(128)-1 

140 FOR I:-8 TO X : FOR J-O0 TO Y : SET(J,I) s: NEXT J,I 
159 RETURN 
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10.3 feladat 


19 CLS 
20 DEFINT I,J,K 
320 PRINTES5S, "MELYIK BETUT IRJAM KI : T-H-TH-HT 0"; s: 
-AD IF A$-"T" THEN J-23 : GOSUB 99 : GOTO 80, 
59 IF A$-"H" THEN J-23 : GOSUB 139 : GOTO 80 
69 IF A$-"TH" THEN J-8 : GOSUB 99 : J-J-430 : GOSUB 130 
70 IF A$-"HT" THEN J-8 : GOSUB 130 : J-J-4H30 : GOSUB 90 
ELSE 20 
82 GOTO 80 
99 REM A T BETU 
199 FOR K-i TO 3 : PRINTE(3-4K) t64-4IJ , STRINGE(22,191); : 
110 FOR kz4 TO 9 : PRINTE(364K) $644J--S,STRING$(12,191); 
120 RETURN 
129 REM A H BETU 
140 FOR ksi TO? 52 
1509 — FRINTE(3-4K)464-4J,STRINGE(S,191); z 
PRINTE(Z3-K) 464-4J-417,STRINGÉ(S,191); 
169 NEXT k 
189 FOR Kk-4 TO 6 : PRINTE(Z3tK) 464415, STRING$(12,191); 
200 RETURN 
10.4 feladat 
19 CLS 


29 DEFINT A,I,J,K 
30 FRINTEZZZ, "A LOTTOSZAMOK :"; 
40 FOR I-1 TO 5 : GOSUB 69 : GOSUB 100 : PRINTGÓSÍHIKBLA(I); : 
59 GOTO 50 
60 REM KERETRAJZOLAS 
79 FOR J-1 TO 10 : 


99 RETURN 
REM AZ I. LOTTOSZAM GENERALASA 


A(I)-RND(90) 


FOR K-O TO I-1 


IF A(K)zAC(I) 
NEXT : 
RETURN 


10.5 feladat 
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18 CLS 
29 DEFINT I,J,K,X 


30 IF INKEY$Z"" 


THEN 110 


THEN 30 


40 I-RND(S8ZO) : J-RND(2) : K-RND(6) 
59 IF J5-1 THEN J-191 ELSE J-532 

60 IF I-4Kt64-4K:1022 THEN 40 

70 GOSUB 90 
89 GOTO 30 
99 REM RAJZ 


190 
110 
120 
1.30 


FOR X51 TO Kk 


FRINTEI-4(X—1) 64, STRING$(K,J); 


NEXT 
RETURN 


SET(204It164tJ,25) : SET(2OTIHi6tJ,35) 
89 FOR Js1 TO 9? s: SET(21tIt16,251J) : SET(S04tI4t16,254J) 


INFUT AZ 


GOTO 89 
GOTO 80 


NEXT K 


NEXT 
NEXT 


NEXT 


10.6 feladat 


10 
20 
30 
40 
a0 


60 


70 
80 


DEFINT X-K 

Z$-"AREIOU" 

CLS 

INPUT"MELYIK. SZOT VIZSGALJAM ":S$ 

FRINTEeO,CHRE(255) : FRINTES,SZ; 

FRINTE€G13464,"A SZO HOSSZA 
me: SZO MAGDANHANSZETT esete ee 


na 
a 
CA 
baj) 
mm 
pú 
ra 
kk 
o 
b 
D 
a 3 
D 
a 
D 
mA 
b e 
DP 
z 
a 
N 
o 
Fa 
an 
N 
D 
7 f 
D 
1 
j 
1 
va [je a 


PRINTEG15464, "UJ SZO ————————————— 


GOSUB 240 
IF I-5 THEN 30 


99 ON I GOSUB 299,1190,1409,520 


100 
119 
120 
170 
140 
150 
160 
170 
180 
190 
2009 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
3509 
360 
370 
380 


GOTO 70 
REM A SZO MAGANHANGZOI 
GOSUB 170 : PRINTESt64-5,CHRE(255) 
RETURN 
REM A MAGANHANGZOK SZAMA 
GOSUB 170 : PRINTES$64-45,CHR$(255) 
RETURN 
REM 
J15LEN(S$) : J2ELEN(ZE) : B$Ez"" 
FOR Kizi TO J1 
FOR k2z1i TO J2 
IF MID$(S$,K1,1)szMIDE(Z$,KZ2,1) 
NEXT K2,Ki 
RETURN 
REM INFORMACIO A BILLENTYUZETROŐL 
ASZINKEY$ : IF A$-"" THEN 250 
I-SVAL(A£) 
IF IZ1 OR I:5 THEN 250 
RETURN 
REM EGY SZO BETUINEK SZAMA 


: FRINTES$64-45,B$; 


: FRINTES$64-5S,LEN(BE) ; 


THEN B$-B$tMID$(S$,kK1,1) 


FRINTES£64-45, CHRE(2S5) : PRINTES$R6445S,LEN(S$) ; 


RETURN 

REM A SZÓ MEGFORDITASA 
KELEN(S$) s: A$z"" 

FOR J5i TOK 


ASZLEFT$(S$,1)-rA$ : S$ZS$4HLEFT$(S$,1) : S$-RIGHT$(S$,K) 


NEXT 


FRINTES$t6445,CHRE(255) : FRINTESHOGA4FS, AS; 


RETURN 


10.7 feladat 5 
Az END (vagy esetleg egy STOP) utasítást az 55-ös sorba kell írni. 


10.8 feladat 
SEHOL!!! 
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Tizenegyedik fejezet 
A SZÁMÍTÓGÉP LELKIVILÁGA 


PEREK, POKE 


A számítógép memóriája , rekeszekre? van osztva. Minden rekesznek van 
címe, és minden rekeszben található egy 256-nál kisebb nemnegatív egész szám. 
A PEEK(N) függvényutasítás segítségével ki lehet olvasni az N című memória- 
rekesz tartalmát. 

A POKE utasítás alkalmazásával pedig a memória bizonyos rekeszeibe írha- 
tunk értékeket. A 


POKE NA 


parancs hatására az N című rekesz tartalma az A szám lesz. Érdemes megjegyez- 
. ni, hogy a 15369, 15361, ..., 16383 című rekeszek tartalma a képernyő 0.— 1023. 


az N értékére 
15360£NS16383 
és az A értékére 
32SAS192 


eper 


A ASCII- kódú karakter. 


11.1 feladat: Készítsünk olyan programot, amelyik a képernyő kívánt helyén egy kívánt karaktert 
kigyújt! 


A POKE utasítás egyik előnye a PRINT utasítással szemben az, hogyha segítsé- 


gével a képernyőn az 1823. karakterpozícióba írunk, akkor sem emel sort. 
1 


11.2 feladat: Rajzoltassunk szimmetrikus, lehető legnagyobb keretet a képernyőre! 


Hasznos tudni, hogy a 16537-es című memóriarekesz az INKEY függvény 
tárolóterülete. 


104 


11.1 példaprogram 


CLS 
20 FOR 1-i5368 TO 15519 
30 POKE I,I-155328 
4 NEXT I É l 
58 IF PFEEK.(16537)- THEN 58 ELSE FOKE 16537,0 
69 GOTO 10 


Egy kis ízelítő a számítógép grafikájából. 
11.2 példaprogram 


i X-RND(S63)-4131 

29 IF RND(2)—-1 THEN J-i5360 : L5ió383 : S-RND(199) 
ELSE J-ióz383 : L-15360 : S--RND(1809) 

39 CLS 

4Z FOR MzJ TO L STEP S 

57 — POKE M,X 

60 NEXT 


70 GOTO 10 


Hanggenerátor 


Az iskolaszámítógép a beépített hanggenerátor segítségével hangokat is tud 
adni. Ezekből összeállíthatunk egyszerű dallamot, figyelemfelkeltő és kísérő 
effektusokat. Így programjainkat színesebbé, tartalmasabbá tehetjük. 

A hanggenerátor vezérlése az OUT utasítással történhet. 

Egy hang megszólaltatásához három teendőnk van, három ún. regisztert kell 
beállítanunk. Ezek az RO, R7, R8 regiszterek. (A számítógépen 13 regiszter áll 
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kapcsolatban a hanggenerátorral, de számunkra most csak az említett három 
lesz fontos.) Az 


OUT 31,X : OUT 38,Y 


utasításpár hatása a következő: 
Az OUT 31.,X utasítás kiválasztja az RX regisztert. Az OUT 30,yY utasítás pedig 
az RX regiszterbe beírva az Y értékének egészrészét, beállítja azt. 

A három említett regiszter működése a következő: 

Az ROB regiszter a hangmagasság beállítására szolgál. Az Y értékének 256-nál 
kisebb nemnegatív számnak kell lenni. Kisebb Y értékhez magasabb hang 
tartozik. 

Az R8 regiszterrel a megszólaló hang erősségét lehet szabályozni. 16 erősségi 
fokozatot állíthatunk be úgy, hogy a regiszterbe a 0), 1, 2, ..., 15 számok 
valamelyikét írjuk. 

Az RT7 regiszter segítségével tudjuk a számítógép ún. , A" hangcsatornáját be- 
és kikapcsolni. (A további két — ,, B" és , C" — csatornával nem foglalkozunk.) 
A bekapcsolás az 


OUT 31,7 : OUT 30,254 
utasításpárral, a kikapcsolás pedig az 
OUT 31,7 : OUT 38,255 


utasításpárral történhet. 


11.3 példaprogram 
19 OUT Z31,9 : OUT 30,1990 : REM A HANG BEALLITASA 
29 OUT 31,8 : OUT 30,15 : REM A HANGERO MAXIMALIS 
39 OUT 31,7 : OUT 30,254 : REM AZ "A" CSATORNA ENGEDELYEZESE 
40 FOR I-0 TÓ 1900 : NEXT 
54 OUT Z1,7 : OUT 30,255 : REM AZ "A" CSATORNA LEZÁRASA (CSEND) 


11.3 feladat: Készítsünk programot, amelyik megszólaltat egy hangot úgy, hogy annak hangerejét 
a maximumtól a minimumig csökkenti! 

11.4 feladat: Írjunk olyan programot, amelyik a hangok magasságának növekvő sorrendjében 
szólaltat meg hangokat! 


Érdemes megjegyezni, hogy a természetes hangskála alaphangjainak a követ- 
kező Y értékek felelnek meg: 


c—208, d-185, e-165, f-155, g-139, a—124, h—118, felső c—104 
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11.5 feladat: Szólaltassa meg a számítógép a természetes hangskála alaphangjait egymás után, és 
a megszólaló hanggal egy időben jelenjen meg a képernyő közepén annak neve is! 


. A kétoktávnyi teljes hangskála megfelelő értékei: 


c—208, cisz—195, d-185, disz-175, e-165, f-155 , fisz 146, g—139, gisz—130, a-124, 
aisz—-117, h—118; 
194, 98, 92, 87, 83, 78, 73, 70, 65, 62, 59, 55 


11.6 feladat: A számítógép véletlenszerűen szólaltassa meg az alapskála egy hangját, majd ezt 
követően az egy oktávval magasabbat! A megszólaló hanggal egy időben jelenjen meg a 
képernyő közepén a neve is! Az [1] billentyű lenyomására ezt ismételje, más billentyű lenyomá- 
sakor pedig álljon le a program. 


Végezetül a számítógép zenéje: 
11.4 példaprogram 


19 DEFINT H-N : DIM H(ZZ) 

29 OUT Z1,8 : OUT 30,15 

Z0 OUT Z1,7 : OUT 30,254 

40 FOR I-9g TO 27 : 

50 READ H(I) 

60 NEXT I 

70 ESRND(24)-—1 

89 CLS 

99 OUT Z1,0 : OUT 30,H(K) 

109 GOTO 70 i pi 
110 DATA 208,195,185,175,165,155,146,139,130,124,117,110 
120 DATA 104,98,92,87,83,78,73,70,65,62,59,55 


11.7 feladat: Hol a hiba? 


10 CLS 

20 FOR 1-15369 TO 16397 STEF 7 
30 POKE I,O 

40 NEXT 

59 GOTO 10 


11.8 feladat: Hol a hiba? - 


19 CLS 

29 OUT 31,7 : OUT 30,254 

30 OUT 31,8 : OUT 39,10 

49 OUT Z1,9 : OUT 309,110 

59 PRINTEG6£r64-45S,"A FROGRAM VEGE" 
60 END 
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Gyakorlatok a tizenegyedik fejezet anyagához 


11.1 gyakorlat: Írjunk programot, amelynek segítségével a kurzor a képernyőn bárhova mozgatha- 
tó, de a mozgatással a képernyőn semmi sem törlődik! 

11.2 gyakorlat: Módosítsuk a 11.1 gyakorlatra adott megoldásunkat úgy, mintha a képernyő 
szemközti oldalai össze lennének ragasztva! 5 ; 

11.3 gyakorlat: Írjunk olyan programot, amelynek segítségével a billentyűzetről bármilyen ábrát 
rajzoltathatunk a képernyőre! (Használjuk a teljes, 32-191 ASCII-kódú karakterkészletet!) 

11.4 gyakorlat: A számítógép képernyőjén megjelenik egy véletlen karakterlánc. Célunk az, hogy 
ebből a billentyűzetről vezérelve értelmes szót alakítsunk ki. Minden betűcsere egy lépésnek 
számít. Miután megkaptuk az értelmes szót, a gép írja ki a betűcserék számát. 

11.5 gyakorlat: Készítsünk olyan programot, amelynek segítségével egy adott hangot egy adott ideig 
szólaltathatunk meg! 

11.6 gyakorlat: Írjunk olyan programot, amelyik egy ismert népdal "dallamát lejátssza! 

11.7 gyakorlat: A számítógép képernyőjén jelenjenek meg keretbe foglalva a természetes hangskála 
alaphangjainak nevei. Ha lenyomunk egy hangnak megfelelő billentyűt, akkor az a hang 
szólaljon meg, és villogjon a neve! 

Készítsük el ezt a programot! 

11.8 gyakorlat: Egészítsük ki a 11.2 példaprogramot úgy, hogy ne csak rajzoljon, hanem zenéljen 

is a számítógép! 
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A tizenegyedik fejezet feladatainak egy lehetséges megoldása 


11.1 feladat 


19 DEFINT X/Y 

29 CLS 

30 INFUT"A KARAKTERPOZICIOÓ ";:X : INPUT"A KARAKTER KODJA ";Y 
4AZ IF X-.0 OR X-1023 THEN 20 


590 CLS 
60 POKE X4t15360,Y 
70 IF INKEY£$-"" THEN 70 ELSE 20 


11.2 feladat 


10 CLS 

20 X15360 

30 FOR J-0 TO 15 

49 POKE X4tJ$k4,1490 : FOKE X$rJ$r64-—-1,149 : POKE X4J$64,140 : 
POKE 163294J$4,140 

39 NEXT 

690 FOKE 1563873,140 

70 GOTO 70 


11.3 feladat 


19 OUT 31,09 OUT 30,100 

29 OUT S1,7 OUT 39,254 

30 FOR J-15 TO 0 STEP-i 

409 OUT 31,8 : OUT 30,J : REM A HANGERO FOKOZATOSAN CSOKKEN 
30 FOR I-9 TO 199 : NEXT I 

60 NEXT J 

70 OUT 31,7 1 OUT 39,255 


11.4 feladat 


19 OUT 31,8 : OUT 30,10 

29 OUT 31,7 : OUT 30,254 

30 FOR J-255 TO 0 STEP -1 

49 OUT 31,0 : OUT 390,J : REM A HANGMAGASSAG NO 
50 NEXT J 

69 OUT 31,7 : OUT 30,255 


11.5 feladat 


10 CLS 
20 OUT 31,9 : OUT 3009 
39 OUT 31,8 : OUT 309,15 


40 OUT Z1,7 : OUT 30,254 

50 FOR J51 TO B 

60 — READ H£$,H 

79 — FRINTEB$r64--30,HE 

80 — OUT 31,9 : OUT 30,H : REM A SKALA MEGFELELO HANGJA 
99 FOR I-0 TO 333 : NEXT I 

1090 NEXT J 

119 OUT 31,7 : OUT 30.255 

120 STOP 

130 DATA C,208,D,185,E,165,F,155,6,1397,A,124,H,119,c,104 


A 28-as sor az RO regiszter nullázását jelenti, ami azért célszerű, mert így a program futtatása- 
kor először a skála kívánt hangját szólaltatja meg. 


11.6 feladat 


10 
20 
30 
40 
50 
60 
709 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


DEFINT H-N : DIM H(Z3) ,A$(11) 


OUT 31,0 : OUT 30,0 
OUT 31,8 : OUT 30,15 
OUT 31,7 : OUT 30,254 
OUT Z31,0 5 


FOR I-0 TO 11 : READ A£(I),H(I) : NEXT I 
FOR I-12 TO 23 : READ H(I) : NEXT I 

FL-O : KERND(12)—1 : HA-H(K) 

CLSs 

FRINTEGB8464-32,A$(K) 

OUT 39,HA ű 

FOR I-0 TO 1900 : NEXT I 

IF FL-1 THEN OUT 39,9 : GOTO 190 


FLE1 : HA-H(Kt12) : PRINTG8x64--24, "FELSO "; : GOTO 150 
PRINTG15464 , "FOLYTASSAM ? (IZN)"; 

T$SzINKEY$ 

IF T$-"" THEN 200 

IF T$-"I" THEN 120 

STOP 

DATA C,208,CISZ,195,D,185,DISZ,175,E,165,F,155,FISZ,146 


DATA G6,139,G6ISZ,132,A,124,AISZ,117,H,110 
DATA 194,98,92,87,83,78,73,70,65,62,59,55 


Az 5080-es valamint a 1508-es és a 1708-es sorokban látható, hogy az t 


OUT31X ésaz OUT 38Y 


utasításokat nem kötelező közvetlenül egymás után írni. A 1780-es sorban levő OUT30,8 
utasítás az A hangcsatornán csendet állít be. 
11.7 feladat 


Ha 


a memóriának olyan rekeszébe írunk, amelyiknek nem ismerjük a jelentését, akkor sok 


meglepetés érhet bennünket!!! 

11.8 feladat 
A hanggenerátort vagy a gombbal, vagy az OUT utasítással, vagy pedig a számítógép 
kikapcsolásával lehet elhallgattatni. 
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50 
60 


30 


40 


Tizenkettedik fejezet 


A GYAKORLATOK EGY LEHETSÉGES 
MEGOLDÁSA : 


Első fejezet 


REM ..... LII GYAKORLAT 


CLS 

SET(49,90) : SET(49,30) : SET(109,15) 

SET(29,15) : SET(BO,9) : SET(B0,30) 

RESET(209,15) : RESET(89,9) : RESET(80,30) 

GOTO 40 

REM S ssnew er de 2 8 VA KZOSRZAL ALT 

CLS 

SET(10,3) : SET(7,4) : SET(8,5) : SET(7,6) : SET(6,7) : 
SET(OSZI 4 SETÜLASZI a SERCLZSZI A SETGLA SZ) 3 SETÉVI94) a 
SET(i12,5) : SET(13,6) 

GOTO 40 

REM émseai led. BCV A KIR LÁT 

CLs 

INFUT" A PONT KOORDINATAI ";5XIY 

CLS 


SET(X.Y) st SET(X-1,Yr1) s SET(X—2;Yr2) st SET(X-S,Y$r3) a 
SET(X-4,Y44) s: SET(X-2,Yr4) : SET(X,Ytr4) s: SET(X42,Y4r4) s 


SET(X44,Y-44) : SET(X4-1,Y41) : SET(XH2,Y42) : SET(XH3,Y43) 
GOTO 60 

REM 1... 1525G VA. KSÖSR LAT 

CLs 

x-0 

SET(X,11) 

X-X£1 

GOTO 409 

REM 1.2... 15BGBYAKORLAT 

CLs 

SET(1,1) : SET(10,1) : SET(109,1) :: SET(1090,10) : 
SET(199,30) : SET(B0,30) : SET(60,390) : SET(49,30) : 
SET(39,30) : SET(20,30) : SET(19,30) : SET(O,30) : 


SET(2,40) : SET(10,49) : SET(15,40) 
RESET(15,49) : RESET(19,40) : RESET(0,490) : RESET(D,30) : 
RESET(19,39) : RESET(29,30) : RESET(30,30) : RESET(49,30) : 
RESET(690,39) : RESET(BO,30) : RESET(100,30) : 

RESET(199,19) : RESET(1990,1) : RESET(10,1) : RESET(i,1) 
GOTO 30 
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REM: ss ess dna NA KO ROLTATT 

CLS 

SETLES SGI : BET(SI;Z? z SET(S,BI tt BET(B 7) 1: SET(ET72 e 
SETC7.99. : SET(B,9) : SET(7,9 

GOTO 40 

REM. assa 7 GOVA KOR GATT 

CLS 

INPUT"AZ ELSO PONT KOORDINATAI ";5XI,YiI : 


INPUT"A MASODIK FONT KOORDINATAI ";X2,Y2 

CLS 

SET(XI.YV1) s SET(XI,Y1) s: SETC(XI;5YI? s: SET(XI1,Y1) s 

PRINT: PRINT: PRINT: PRINT: PRINTzZFRINT:PRINT:PRINT:PRINT:FRINT: 
FRINT:PRINT: PRINT: PRINT: PRINT: FPRINT:PRINT:PRINT:PRINTS:PRINT 
ELS 9 

SET(X2,Y2) s: SET(XZ2,Y2) : SET(X2,Y2) s: SET(XZ,gY2) 3 
PRINT:PRINT: PRINT: PRINT:PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: 
FRINT: PRINT: FRINT: PRINT: PRINT: PRINT: PRINT:PRINT:PRINT:FPRINT 
GOTO 409 


REM cessn 1BBVYAKORLAT 
CLS 

Xz0 : Y:0 

XzXt3 : YzY41 


SET(X,2) s: SET(X,10) RESET(X,20) : RESET(X,10) 


SET(OYY) : SET(CIOGY) : RESET(OY) : RESET(I0yY) 
GOTO 49 
REMÉ szén ISS IOLYATK OR LAT 


CLS 
Xs1 : Yzl : Az124 

SET(X,Y) : RESET(X,Y) : SET(A,Y) : RESET(A-3,Y-—1) 
X-XAZ : YzYr1 : A-A-3 

GOTO 40 

REM" sára , 10.67 V A KTOÍR LAT 

CLSs ; 

INPUT"A KET KOORDINATA ";XI;YI 

CLS 


XzX1 s: AzX s: YzYi z: BzY 

XzX4£3 : YzY4t1 s: AzA—-3 s: BzB-1i 

SET(X,Y1) : SET(X1;5Y) s: SET(A,Y1) s: SET(X1,B) 
PRINT 3 PRINT s: PRINT s PRINT s: PRINT 

CLS 


109 GOTO 68 


10 
20 
30 
40 
50 


REM. susra dagi B VAK OO RL AT 

ELS 

X-0 : Y:0 4 
SET(X;Y) : SET(X4t19,Y) : SET(Xt10,Y45) s SET(X,Ytr5) 
XzX4t3 : YzY41 


b 
TO 49 


REM szesad LL I2ZGYAKORLAT 
CLS 

X-0 : Az-i127 

SET(X,1í9) : SET(A, 19) 

XzXti : AzA—i 

RESET(X-1,190) : RESET(At1,10) 
GOTO 40 
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REM 
CLSs 
X-63 : Y23 : A-63 : B:523 

RESET (X—-3,Y-1) : RESET(At3,Bt1) : RESET(63,Y-1) z: 
RESET(X-3,25) : RESET(63,Bt1) : RESET(At3,23) : 
RESET(X-—-3,Bt1) : RESET(At3,Y—1) 


1.15 GYAKORLAT 


SET(X,Y) : SET(A,B) : SET(SZ3,Y) : SET(X,23) : SET(63,B) : 
SET(A,23) : SET(X,B) : SET(A,Y) 

X-X43 : YzY4i : AzA-3 : Bz5B-i 

GOTO 49 

REM 22... LIAGYAKORLAT 

CLs 

PRINT: PRINT: PRINT: PRINT: PRINT: PRINT:PRINT: 
PRINT" szia iv 
GOTO 49 

REM ..... LISGYAKORLAT 

CLS 


FRINT: PRINT: PRINT: PRINT: PRINT: PRINT: FRINT: 


PRINT" VEL 8-8 
XzX-1 : XzXti s: XzXti s: : X5X-i : XzXti : X-0 : X50 
XzXti1 : XmX-1i : XzXti 3 : XzXt1 : XzX-1 
GOTO 29 

REM ejsőse SI BYAKORLAT 
) PRINT "e" 

GOTO 209 

REM 1... LIZBYAKORLAT 

CLS 

PRINT" A" 4 PRINT" A A" : PRINT" A [ád ) 
PRINT" AA A A" : PRINT"A A" 

GOTO 40 

REM cssva IL 1BOYAKORLAT 


PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT:PRINT: 
PRINT: PRINT: FRINT:PRIN RINT: PRINT 


PRINT " szzesszzzszzseszesmsszzszzzzz: SZE EZSESESZZZZZSZSEESZEEZEZEZSZESZSEESZSZSZESSESEZEEEESEEEEEEESEZZZEZZSZzg 


GOTO 209 


REM 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
FRINT" 
PRINI" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
GOTO 20 


1519 BV A KORLÁT A 
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soil 


10 REM ..... I.2OGYAKORLAT 
" 20 INPUT A,B,C 
30 PRINT : PRINT : PRINT 
40 PRINT"Az";A,"Bz";B,"C5";C 
50 PRINT : FRINT 
60 PRINT"AS";:A : PRINT"B-":B : PRINT"C-";C 
70 PRINT : PRINT : PRINT : PRINT 
80 GOTO 29 


Második fejezet 


18:REM "5 cesa 2518 VAK ORIL AT 

29 CLS 

30 FOR X:5 TO 25 STEP 5 

40 FOR VseS TO 25. 1: BET(X,YI2 15 NEXT Y 

539 NEXT X 

60 CLS 

70 FOR X:5 TO 25 

80 FEORVesS. TO-2S STEP 3. 3 SETCÉGYVI- a NEXT"Y 


79 NEXT X 
19 REM ..... 222GYAKORLAT 
20 CLS . 


30 FOR X-19 TO 109 STEP 10 

40 FOR Y:0 TO 47 : SET(X,Y) s: NEXT Y 

59 NEXT X 

60 FOR X-0 TO 127 

70 FOR Yz4 TO 309 STEP 8 : SET(X,Y) : NEXT Y 
89 NEXT X 

799 FOR Xz19 TO 98 s: SET(X,45) s: NEXT X 

109 GOTO 190 


19 REM ..... 2.3GYAKORLAT 

29 CLS 

30 FOR Kz1 TO 10 

LÉT EROS ÉT essem ee ess " 
50 NEXT K 

60 GOTO 60 


19 REM ..... 24GYAKORLAT 

20 CLS 

39 FOR K-BD TO 28 

40 SET(63,234tK) : SET(63,23-K) : 
SET (634tKtHKIK,23) : SET(63-K-K-K,23) : 
SET (SZ4HKHFKIK,Z3tK) : SET(S3tKHKEK,23-K) 
SET (635-K-K-K,234tK) : SET(63-K-K-K,23-K) 

59 NEXT K 

69 GOTO 60 


10 REM ..... 25SBYAKORLAT 
20 CLS 
30 FOR Y:3 TO 35 STEP 6 


60 FOR XzG TO 59 s: SET(X,Y) s: NEXT X 
79 NEXT Y 

89 FRINT 

979 STOP 


19 REM ..... 26 8 Y-AIKOR LAT 
29 CLS 
30 FOR Xz8 TO 127 s: SET(X,0) s: SET(X,47) : NEXT X 
48 FOR YsB TO 47 : SET(O,)Y) 3 SET(127,Y) : NEXT Y 
59 GOTO 50 
20 REM "ás kratsr ze B VA KÜ R.K, AK 
29 PRINT "öt dt dt dt dt dt dt A AE AE AE AE AE E A AE AE AE AE AE AE AE AE AE AE AE 96 JE 3E 36 AE E 
39 FOR K-i TO 13 
40 PRINT" 
59 NEXT 
60 PRINT Y öt dt dt 86 dt dt de AE AE E AE JE E AE E E AE E E E E E AE AE AE AE AE AE AE 96 9 A 
79 GOTO 70 
19 REM ..... 2. 8..B.YX AKOR LEIA AT 
29 CLS 
30 FRINT"ELSO SOR" : PRINT s: PRINT"HARMADIK SOR" s: PRINT s: 
FRINT"OTODIK. SOR" 
40 FOR Y-3 TO 28 STEP 6 
50 FOR X-0 TO 36 : SET(X,Y) : NEXT X 
69 NEXT Y 
70 PRINT : PRINT 
105 REM". sss ZIBVYVAKORLAT 
20 CLS 
30 FOR J-149 TO 19 STEP -109 : PRINT J : NEXT J 
40 FRINT 
50 PRINT" 0. 19 29 309 49 50 69 709 89 99 10990 110"; 
60 FOR X-0 TO 109 : SET(X,43) : NEXT X 
70 FOR Yzg TO 47 s: SET(9,Y) : NEXT Y 
89 GOTO 80 
19 REM ..... 221OGYAKORLAT 
29 CLS 
30 PRINT"CSAK POZITIV KOORDINATAJU PONTOKAT 
TUDOK ABRAZOLNI !" 
490 INPUT X,Y 
590 IF X:0 THEN 60 ELSE 20 
60 IF Y:0 THEN 79 ELSE 20 
70 FOR kz1 TO 15 
89 IF K:7: THEN FRINT Y ELSE PRINT 
99 NEXT K 
100 PRINT" 0";" É egxI 
110 FOR X-0 TO 127 : SET(X,42) s: NEXT X 
120 FOR Y:O TO 47 s: SET(19,Y) s: NEXT Y 
130 SET(60,18) 
140 GOTO 140 
18 REM cvs. SI BYAKORLAT 
29 CLS 
39 PRINT : PRINT s: PRINT : PRINT s: PRINT : PRINT s: PRINT 
49 PRINT" MASSALHANGZOK " 
50 FOR I-1 TO 309 : NEXT 
60 SET(59,21) : SET(65,21) : SET(71,21) : SET(79,21) 
70 GOTO 70 
19 REM 1... ZIZBYAKORLAT 
209 CLS 
ZD PRINT E 46 96 46 96 db db 96 96 dé dt d Az 
§ PRINT" É"3 3 a" a 
PRINT "3 1 É aus ora s.) 5 gyltt 
PRINT" 3 a s ekSÉL] 


40 


PRINT AE 36 96 96 96 E dt AE 96 96 E 96 ES 
PRINT : FRINT 


115 


18 REM 1... DISBYAKORLAT 
20 Xx-0 

30 Ces 

40 FOR J-0 TO X : PRINT : NEXT J 

50 PRINT"44444" 

68 FOR K-i TO 19099 : NEXT 

790 X:Xt4£1 

eg GOTO 30 


19" REM sossjs 2 B VA KORLAT 
20 X-i 

39 CLS 

AG FRINT X 

39 FOR I-1i TO 10090 : NEXT 

60 X-X41 

709 GOTO 30 


19 REM ..... 2.15. B YA KORL AT 
29 CLS 

33 FOR Ys1i TO 5 s SET(19,Y) s: NEXT Y 
40 FOR K-1 TO 300 : NEXT 

50 CLs E 

60 FOR Ysi TO 5 : SET(120,Y) : NEXT Y 
70 FOR K-1 TO 300 : NEXT 


89 GOTO 209 

10 REM ..... 2216 GYAKORLAT 
29 X-0D : Y0 

309 CLS 


40 PRINT X ; " ORA", ,Ys" PERC" 

59 FOR Kk-1 TO 200 : NEXT 

60 YzYri1 

70 IF Y-6g THEN 30 

890 X-X-4r1 : Y:0 

99 IF X-24 THEN 30 ELSE X-0 : GOTO 30 


108 REM ..... 2I7Z7GYAK 
20 INFUT"HÁANY ORA ";X : INPU 
39 GOTO 70 . 
49 CLS 

50. PRINTXs;" ORA", Y3" PERC" 
60 FOR Kz1 TO 2909 : NEXT 

70 YzY41 

80 IF Y-6g THEN 40 

99 XzXt1 : Y:B 

100 IF X:-24 THEN X-0 

110 GOTO 40 


ORLAT 
PUT"HANY PERC ";Y 


10 REM ..... 22I8GYAKORLAT 
20 FOR Iz1 TO 15 : PRINT : NEXT. I 
39 PRINT" kaszt 

40 FOR I-1 TO 19908 : NEXT 

539 GOTO 29 


18-REM ..sss ZDZIPGYAKORLAT 

29 CLS 

30 Kzi : X-0 s L5i1 

40 FOR I5L TO L4FK-1 

58 IF X4I3129 THEN STOP 3 
60 SET(XrI,25) s SET(XHI,35) : SET(Xt4I,45) 

70 NEXT I 

80 LszL4K : KzKHK 

99 FOR Fs1 TO 198 : NEXT F 

199 GOTO 40 
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19 REM ..... 2.2OGYAKORLAT 
20 CLS. 

30 FOR Isi TO 50 

4B PRINT"! ; 


39 NEXT I 
REM ..... 2222 GYAKORLAT 
CLS 
INPFUT"KATI SZAMA ";X 
CLS 


INET" FERE TIPPJE "7Y 

PRINT : PRINT"KATI SZAMA "3 

IF XzY THEN PRINT"IS UGYANENNYI !" 3 STOP 

IF X£Y THEN FRINT"KISEBB" ELSE PRINT"NAGYOBB" 
PRINT 

1090 FOR I-1 TO 300 : NEXT 

110 GOTO 40 


19 REM ..... 2.22 GYAKORLAT 
209 CLS 

30. X-D : Y-O : I51 

49 SET(X,Y) 

59 I5I-I 


690 FOR L-1 TO 699 : NEXT 

70 FOR J5s1 TOI 

89 XzX-4i 5 

799 IF X-CI28 THEN SET(X,Y) ELSE X5-0 : YzYt1 : 
IF YC47 THEN SET(X;Y) ELSE 120 

199 NEXT J 

119 GOTO 50 

129 GOTO 120 


19 REM ..... 2223GYAKORLAT 
20 CLS 
39 Xs5si 
40 FOR I5si TO X : PRINT s NEXT I 
59 PRINT"4t at at at 
60 FOR I51 TO 3980 : NEXT s: 
XzXt1 3 . 
IF X213 THEN Xzi1 
70 XzXt1 
80 IF X:-13 THEN X51 
99 CLS 


109 GOTO 409 


10 REM ..... 222A4GYAKORLAT 
20 INFUTX,Y 


30 CLS 
40 I-4 
59 IF I-1 THEN X5zXt1 : YzYti 
.60 IF I-2 THEN Xz-X-1 : YnY-1 
70 IF I-3 THEN XzX-1 : YzY4i 
80 IF Is4 THEN XzXti1 : YsY-1 


79 IF X-O THEN IF I-2 THEN I:4 : GOTO 50 ELSE Izi 


: GOTO 50 


100 IF X-127 THEN IF I51i THEN I-3 : GOTO 59 ELSE I:2 : GOTO 50 


119 IF Y-g THEN IF I-4 THEN I-i : GOTO 59 ELSE I-3 
120 IF Y547 THEN IF I:3 THEN I52 : GOTO 5090 ELSE I-4 


130 SET(X,Y) 
140 GOTO 50 


: GOTO 50 
: GOTO 50 
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Harmadik fejezet 


REM ....e ssgre ee AL HEOARES AE 
FOR X-0D TO 127 
FOR YO TO 47 : SET(X,Y) : NEXT Y 
NEXT X 
CLS 
FOR Y-g TO 47 


FÖR X-0 TO 127 : SET(X,Y) : NEXT X 
NEXT Y 
CLS 

FOR X-0 TO 127 

FOR Yn47 TO 0 STEP -1i s SET(XGY? tt NEXT Y 

NEXT X 

CLS 

GOTO 20 
REM. ..es s ate GYA IK BIR EAT 
CLS 
FOR I-109 TO 20 


FOR Jz:S5 TO 26 : SET(I,J) : NEXT J 
NEXT I 
FOR I-29 TO 409 
FOR Js1i TO 3 s: SET(I,Jt4t4) s: SET(I,J413) : NEXT-J 


NEXT I 
FOR I569 TO 70 
FOR J-5 TO 26 : SET(I,J) : NEXT J 
NEXT I 
FOR I-70 TO 90 
FOR J-1 TO 
FOR Ks1 TO 18 : NEXT K ; 
SET(I,J44) : SET(I,J413) : SET(I,J423) 
NEXT J,I 
GOTO 170 
REM 2.0... ZZZAGY AT DÍR LAT 
CLS 
DEFINT A-Z 
FOR Y-g TO 42 : SET(Y6HYHY,23) : SET(63,Y) : NEXT Y 
FOR Y54Z3 TO 46 : SET(63,Y) : NEXT Y 


FOR X-0 TO 62 
FOR Yzd TO 22 : SET(X,Y) : SET(Xtr64,Y4r24) s: NEXT Y 
NEXT X 
GOTO 99 
REM ....e 52.48. XN AKDR LL ALT 
CLS 
DEFINT I 
FOR I5-1 TO5S 


PRINT"!Erttt!! 


GOTO 79 
"REM ..... 365GYAKORLAT 
CLS 


DEFINT X,Y 
FOR Xz8 TO 127 : SET(X,0) 2: SET(X,47) s NEXT X 
FOR Y-O TO 47 

SET(O,Y) : SET(i,Y) : SET(126,Y) : SET(127,Y) 
NEXT Y 
GOTO 80 


10 REM ..... 3.EGYAKORLAT 
29 CLS 

30 FOR X-0 TO 127 

40 — SET(X,20) 

59 — FOR Y-127 TO X STEP -3 : NEXT 
60 — RESET(X,20) 


70 NEXT X 
BO FOR X-127 TO B STEP-1 
799 SET(X,20) 


x 


100 FOR Ys127 TD X"BTEP -S § NEXT Y 


110 RESET(X,209) 
129 NEXT X 5 
139 GOTO 209 


19 REM ..... S57ZBGBYAKORLAT 
20 I-100 : X-10 : Y-1i : Azi : B557 
30 CLS 

40 FOR KzA TO B STEP S 


50 IF KC20 THEN X-X4tS : GOTO 90 
60 IF KA30 THEN YzY4S : GOTO 90 
: GOTO 99 


70 IF K-48 THEN X-X-S 
80 Y:Y-S x 

99 SET(X;Y) 

190 FOR J5si TO I : NEXT J 

110 RESET(X;Y) 

129 NEXT K 

130 IF I5100 THEN Is1i : Az57 : Br1 


10 REM ..... 5S.8B8GYAKORLAT 
290 DEFINT X;Y 

390 Xizg : X2547/ 

49 CLS 


: Sz-1i 


59 FOR XzXi TO X2 STEP 3 s: SET(494X,X1) s 


60 X1-X1r2 


70 FOR XzX2 TO X1 STEP -3 : SET(494X,X2) 


89 X25X2-2 

99 IF X2224 THEN 508 

190 FOR Izsi TO 50 : NEXT 
119 GOTO 30 


19 REM cccos STBYAKORLAT 
20 X1:0 : XZ2547 

30 CLS 

40 FOR XzXi TO X2 : SET(40£X,X1) s: 
539 X15-X11r2 


NEXT X 


60 FOR XzX2 TO Xi STEP -i : SET(404X,X2) 


70 X2zX2-2 

88 IF X2:24 THEN 40 

99 Xi-0 : X247 

109 FOR XzXi TO X2 : SET(404X2,X) : 
119 X15X142 


NEXT X 


129 FOR XzX2 TO Xi STEP -1 : SET(4904X1,X) 


130 X25X2-2 

140 IF X2:24 THEN 199 
150 FOR Is1 TO 59 : NEXT 
160 GOTO 20 


, zszágazáadáti 


: GOTO 40.ELSE 20 


SET(49-4-X2,X) 


SET(490-4X1,X) 


NEXT X 


: NEXT X 


NEXT X 


NEXT X 
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SZARBA BAKOS R LA GÉ 
: Yz21 


490 FOR I5-1 TOK 

50 IF Y4I:47 THEN 120 

60 SET(X4tINY) : SET(X$K,YII) 

70 NEXT I 

90 XzX-4£K : YzY4K : KzKtK 

99 FOR Izi TO K : SET(X-I,Y) : SET(X-K,Y-I) s: NEXT I 
100 XzX-K : Y5Y-K : KsKHK 

119 GOTO 40 

120 FOR X585 TO 193 s SET(X,0) z: NEXT X 

139 GOTO 138 


18. REM s sas ST BYVAK BROAT 

29 CLS 

39 FOR Yz1 TO 10 

40 FOR Xs1 TO YtY s: SET(624X,Y533) : SET(65-X;5Y43) s: NEXT X 
59 NEXT Y 

60 FOR Y:14 TO 24 

70 FOR Xz49 TO 75 : SET(X,Y) s: NEXT X 

89 NEXT Y 

99 FOR Y-5 TO 10 

1099 FOR Xz72 TO 75 s: SET(X,Y) s: NEXT X 
119 NEXT Y 

120 FOR Ysi16 TO 20 

130 FOR Xz65 TO 70 : RESET(X,Y) s: NEXT X 
1490 NEXT Y 

159 GOTO 159 


18 REM vvcss SIZBYAKORLAT 
20 DEFINT A-Z 
39 FOR kzs1 TO 48 ő 


40 CLsS 
30 FOR Xzi1 TO KHK 
60 FOR Y:9 TO K-1 s: SET(X,Y) s: NEXT Y 


70 NEXT X 

89 FOR J51 TO 209 : NEXT J 
79 NEXT K 

199 GOTO 199 


190 (REM uses SAFBYAKORLAT , 

20 DEFINT A-Z 

39 CLS 

49 FOR Xz1 TO 209 

50 SET(X439,19) : SET(X439,390) : SET(5S0,194X) : SET(50,194X) 
60 NEXT X 

790 SET(30,10) 

98 FORZYSI:T TÓ 29 


709 FOR Jzs1i TO 10 : NEXT 
190 FOR X531 TO 49 : SET(X,Y) : NEXT X 
110 NEXT Y 


128-FÖR Va2y TO 11 STEP 1 

130 FOR Jzsi TO 190 : NEXT y 

140 FOR X549 TO 31 STEP -1 : RESET(X,Y) s: NEXT X 
150 NEXT Y 

160 FOR J-1 TO 299 : NEXT 

179 GOTO 80 
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19 REM ..... S.IAGYAKORLAT 
29 DEFINT A-Z " 

30 CLS 

4D FOR X51 TO 30 

59 — FOR Ysi TO 20 : SET(XH30,Y) : NEXT Y 

60 NEXT X 

70 FOR Yzs1 TO 20 

80 FOR Xzsi1 TO 30 

90 RESET(X-439,9Y) 

190 IF X£i6 THEN SET(X,Y) ELSE SET(X-460,Y) 

110 NEXT X;Y 

129 FOR Ysi TO 20 

130 — FOR X-39 TO 1 STEP -1 

140 SET(X630,Y) 

150 IF XC16 THEN RESET(X,Y) ELSE RESET(X-t60,Y) 
160 NEXT X;Y 

170 GOTO 70 


19 (REM sas SS BYVAKORLAT 
209 CLS 

30 FOR Xzi TO 50 

40 SET(X,1) : SET(X,39) s: SET(X,X) s: SET(31-X,Xx) 
59 NEXT X 

SFOR OYVa:4 TÓ 1 STEP-1 

70 FOR XzY41i TO 39-Y 

80 SET(X;Y) 

99 NEXT X;Y 

100 FOR Y-2 TO 14 

110 FOR XzY4t1 TO 309-Y 

120 FOR J-G TO 109 : NEXT 

130 RESET(X,Y) : SET(X,31-Y) 
1409 NEXT X;Y 

159 FOR J5-1 TO 200 : NEXT 

160 GOTO 20 


19 REM v.oss SIEBYAKORLAT 
20 DEFINT A-Z 

39 CLS . 

40 FOR Y-B TO 10 


50 FOR X559 TO 70 : SET(X,Y) : RESET(X,49-Y) : NEXT X 


60 NEXT Y kő 
70 FOR Xs8 TO 127 : SET(X,29) : NEXT X 

80 FOR Ys4g TO 30 STEP -1 

99 FOR X550 TO 70 :- SET(X,Y) : RESET(X,40-Y) : 
199 NEXT Y 

120 FOR Kzi TO 1590 : NEXT 

130 GOTO 40 


19 REM ..... Száz BTYSA IK B-R-ÉL AT 
29 FOR K-BD TO 29 
30 CLS 


NEXT X 


40 SET (S31KHKHK,244K) : 
SET (61-K-K-K,23-K) s 
SET (6341KtKHK,23-K) : 
SET (61-K-K-K,24-4K) : 

30 FOR J5-1 TO 50 : NEXT 

60 NEXT Kk 

70 GOTO 20 


SET (64-4KtKEK, 244K) 
SET (62-K-K-kK , 23-K) 
SET (644KHKAK , 23-K) 
SET (62-K-K-K , 244K) 
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79 


REM sál été a S-48.B.YOA"K 0.R LAT 

CLSs 

FOR Y-19g TO 30 
FOR" Xmid. TO Süss SETEXSYI 18 NEXT XX 

NEXTÓK 

FOR Y-19.TO 39 li 
FOR Xzií9 TO 690 s: RESET(X,Y) s: NEXT X 
FOR Xb49-Y TO 99-Y : SET(X,Y) : NEXT. X 

NEXT Y 


199 GOTO 190 


99 


REMŰ etés s ösi? GYAKORLAT 
Cs 
FOR k-O TO 42 


FOR J-0 TO 42 .: SET(J4HJ4J,K) : SET(KtKHK,J) s: NEXT J 


FOR J-9 TO 42 : RESET(J4tJ4J,K) : RESET(KtKHK,J) 
NEXT K 
GOTO 30 


REM ..... SZOGYAKORLAT 
CLS 
FOR X-0 TO 127 

FOR Y-19 TO 40 STEP 19 : SET(X,Y) 3: NEXT Y 
NEXT X ű . 
FOR X-9 TO 409 STEP 10 

FOR YO TO 47 

IF POINT(X,Y) THEN RESET(X,Y) ELSE SET(X,Y) 


109 NEXT Y,X 
119 GOTO 110 


REM s 2 Sea Bazd BYAK ORE AT 
DEFINT A-Z 

CLS 

FOR Xzi TO 120 


FOR Y-19 TO 40 s: SET(X,Y) : NEXT Y 
NEXT X 
FOR X-59 TO 80 
FOR Y:g TO 47 
IF FOINT(X,Y) THEN RESET(X,Y) ELSE SET(X,Y) 


199 NEXT Y,X 

110 FOR Yzi5 TO 35 

120 — FOR X5-45 TO 105 j 

130 IF POINT(X,Y) THEN RESET(X,Y) ELSE SET(X,Y) 
140 NEXT X,Y 

150 FOR X515 TO 127 

169 IF POINT(X,22) THEN RESET(X,22) ELSE SET(X,22) 
1790 NEXT X 

189 FOR Y-9 TO 47 

199 IF FOINT(63,Y) THEN RESET(63,Y) ELSE SET(63,Y) 
209 NEXT Y 

210 GOTO 210 


10 
20 
30 


"40 


59 
69 
70 
80 
70 


REM 1... SZZBYAKORLAT 
CLsS 
FOR kz-1 TO 1099 


FOR X5-0 TO 100 STEP K 
IF POINT(X,22) THEN RESET(X,22) ELSE SET(X,22) 
NEXT X,KI : 
FOR Xz 0 TO 1909 
IF POINT(X,22) THEN PRINT X; 
NEXT X 


199 GOTO 100 
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NEXT J 


10 REM ..... SZZGYAKORLAT 
209 CLS 

38 FOR Xz6 TO 93 

40 FOR Y:7 TO 13 

50 IF XC15 OR 81(X THEN SET(X;Y) 
60 NEXT Y,X 3 
79 GOTO 70 


Negyedik fejezet 


10 REM ..... 441 GYAKORLAT 
20 CLS 
39 FOR X-O TO 11 
FOR Y:g TO 6 : SET(XSX,YRY) :§ NEXT Y : 
NEXT X 
49 GOTO 40 


19 REM ..... A2ZGYAKORLAT 
29 DEFINT A-Z 
30 CLS : 
INFUT"A LOTTOSZAMOK "3;A,B,C,D,E 

40 CLS : 

PRINT A;B;C;D;E 
50 FOR I-9 TO 6 : 

FOR J-25 TO 100 : SET(J,StI4H10) : NEXT J : 

NEXT I 

60 FOR I-g TO 30 : 
FOR J-25 TO 100 STEF 5 : SET(J,I$H10) : NEXT J : 

NEXT I 
70 X5A/15 : Y5A-Xt15 : IF Y-0 THEN X5X-1 : Y5i15 
BO SET(Y4SH22,XX5-412) 
99 X-B/15 : Y5B-Xt15 : IF Y-0 THEN X-X-1 : Y-15 
1990 SET(Vt5422,Xt5-412) 
110 X5C/15 : Y-C-Xt15 : IF YO THEN X-X-1 : Y515 
120 SET(Yr54-22,X$5412) 
130 X-D/15 : Ys-D-Xt15 : IF Y5-0 THEN XzX-1i 
140 SET(Y£R5422,XX5412) 
150 X-E/15 : Y-E-Xt15 : IF Y-0 THEN X5-X-1 : Y5i15 
160 SET(YXR5S5422,X45412) 
170 GOTO 170 


Yza15 


19 REM ..... 4A3GYAKORLAT 
28 ks5 
30 CLS : új 
FOR I5s1i TO 26K : 
FOR J51 TOK : SET(I,J-46) : NEXT J : 
NEXT I 
40 INPUT LN : 
IF L50 THEN KsEK/N ELSE KzEKEN 
50 GOTO 39 
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10 REM ..... AGA AGY ÁATK OR EAT 
20 DEFINT A-Z s: ú 


Az0 
39 CLS : 
PRINT 
40 C-L s: 
FOR L-0 TO 3 : 
FOR ksg TO 3 : 
IF AZC THEN MEL : NEK : PRINT" ús "s ELSE PRINT" "g 
sg C5C-t1 : 
NEXT K : 
PRINT : PRINT : PRINT : 
NEXTL : 
PRINT 
60 Csi 
70 FOR L-0 TO 3 : C5C-1 : 
FOR KED TO SZ : 
B5C/2 
89 IF C528B THEN 110 
99 IF MEL AND NEK THEN 
FOR X5-Kt18 TO K$1B$H17 : SET(X,LH9) : SET(X,LH9--B) : NEXT X : 
FOR YsLt9 TO L$9-4-B : SET(KtIB,Y) : SET(Kr1B-H17,Y) : NEXT Y : 
GOTO 119 
190 FOR XzKt1B TO KrIBH17 : 
FOR YELE? TO L49--B : SET(X,Y) : NEXT Y : 
NEXT Y 
110 CsCt1 : 
NEXT K.L : 
INPUT A : 
GOTO 30 


19 REM ..... 45GYAKORLAT 
20 DEFINT X s: 


CLS 
30 INPUT"A SZAM ";X 
40 IF XPZZ225C(1/5) THEN PRINT"TUL NAGY A SZAM !" : GOTO 30 
50 PRINT" X",9-X"."10EX","XeX": PRINTX,—X,108X, XIX 
60 PRINT : PRINT"XCSZ — "gXC5 : PRINT : PRINT 
70 PRINT : PRINT : 
GOTO 30 
19 REM ..... 4AOGYAKORLAT 
20 CLS : 
INPUT"A HAROM SZAM ":X,Y,Z : 
CLS s 
30 PRINT"XEYAZE";XEYEZ, "XYZ g XAVAEZ 


40 PRINT"X-Y-Zz 
50 PRINT"XtYeZ5" 
690 PRINT"X-YaZ 
70 PRINT"XtY/Z5 


109 
110 


10 
20 


30 
40 


so 
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X-Y—-Z,"XZYZZE";XZY/Z 
FYAZ,"XRYAZSZ! 3 XYZ 
-nYVeZ,"XVYV-Za"3Xx8Y-Z 
KEYZZGTÁZY AZ 
SYAZ,"X4Y/Ze 
-Y4Z, "X4Y—-Zs! s X4Y—-Z 


PRINT"X/Y-4ZE" 
PRINT"X-Y4Zz! 


ERTNTSKEVZZMEg KEVZÉ e RZYZe" ig XRZV-Z 
GOTO 110 

REM 1... 4.7 AJY AK OR LIA TT 

CLS : 

INPUT N : 

P:0 : K-D : 

ELS 2 

PRINT N : FRINT 

FOR I-1 TO N : P-P-H28I-1 : KzKtTIC3 : NEXT I 
PRINT"A PARATLAN SZAMOK OSSZEGE : ";P z: 
PRINT"A KOBSZAMOK OSSZEGE : ";Kk 

GOTO 59 


REM ..... 48GYAKORLAT 
CLS : 

INPUT"NE "GNI: - 

KzD : 


FRINT"KEREM A SZAMOKAT !" 


FOR Isi TO N : INPUT X : KzszK4$X : NEXT I 
PRINT"AZ ATLAG — ":K/N 

STOP 

REM 1.2... 49GYAKORLAT 

CLS : 

INPUTJ"A KOCKA ELHOSSZA ";X : 

CLS s: 


FRINT : PRINT 
PRINT"TERFOGAT 
PRINT"FELSZIN 


z"eXC3 s: PRINT s: 
zORXEX s: PRINT z: 


FRINT"ELHOSSZ z":124X 

PRINT : PRINT s: 

STOF 

REM ése AAA NA KR LAT 

CLS z 

PRINT"A POLINOM s X-RXEXZ2ZEK" 
PRINT : 


INPUT"MELYIK HELYEN KERED A HELYETTESITESI ERTEKET ";X 


PRINT : PRINT "Xz ";X,"X 4 X— 2 4 X — "!;5XtX—2EX 
PRINT s: PRINT s: PRINT"UJ ERTEK (1) /KULONBEN VEGEZ/"; : 
INPUTIT 
IF Imi THEN 29 ELSE STOP 
REM 2... 411 GYAKORLAT 
L:10900 : $t50000 : V:190090 
CLS : 4 
FRINT"UZEMANYAG "gk B 
PRINT"FOLDTOL VALO TAVOLSAG [don ák] 
FRINT"SEBESSEG 3"3V s PRINT s: PRINT 
pt 


INPUT"UJ SEBESSEG ";V : INPUT"IDO " 
Sz$S$-VeET : L5L-VEtVET/600 £ 
IF S:-10 THEN IF L28 THEN 30 ELSE 
PRINT"ELFOGYOTT AZ UZEMANYAGOD !" s: 
FOR Izi TO 408 : NEXT : GOTO 80 


IF S:-19 THEN PRINT"SZERENCSESEN FOLDET ERTEL !" : STOP 
ÉRINT 2 "PRINT s PRINT BUNEI SE nat a PRINT a 

PRINT"A FOLDNEK UTKOZTEL !" 

STOP 

REM venae sé Va 12: B V-A K 0 REA TT 

CLS 

INPUT"A MASODFERCEK SZAMA ":5M : 


PRINT 8 -ERINT "EZ. a 

N-0g : 0-0 : P-B 

N-Nti : IF M-(NtB64OO THEN PRINTN-1, "NAP" ELSE 409 
M-M-—-(N-1) 365400 

0-O4t1 : IF M-(O$kt3609 THEN PRINTO-1, "ORA" EL. 60 

M5-M-— (0—1) 13600 

PsP-4-i : IF M-(P4t6óD THEN PRINTF !,"PERC" ELSE 80 
PRINTM-(P-1) 469, "MASL PERC" s: PRINT s: PRINT s: PRINT : 
GOTO 30 
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10 REM ..... ALIZGYAKORLAT 
29 DEFINT A-—Z : 
CLS k 
30 INPUT"A KETTES SZAMRENDSZERBELI SZAM ";X : 
JzX 
49 Az : I-1 
59 Z7-X/2 : IF X-2£Z THEN X-X/10 ELSE X5(X-1)/10 : A-AGI 
60 IF X20 THEN I-Ix2 : GOTO 50 
70 PRINTJ,"A TIZES SZAMRENDSZERBEN :"3A : PRINT : PRINT 
80 INPUT"A TIZES SZAMRENDSZERBELI SZAM "GY : 
Jay 
99 Az : I-1 ; 
100 Z7-Y/2 : IF Y-24Z THEN Y5Y/2 ELSE Y5(Y-1)/2 : A-ATI 
110 IF Y:0 THEN IzI$10 : GOTO 1090 
120 FRINTJ,"A KETTES SZAMRENDSZERBEN :";A : PRINT : PRINT : PRINT : 
GOTO ZO 


19 REM ..... 4.14GYAKORLAT 


29 CLS s: 
DEFINT A-Z 
39 INFUT"A KET SZAM ";XIY 
40 IF XXCY THEN ZzX s: XsY 3 YsazZ 
50 ZzX/Y : PRINTX; "zögYys "assz" sx—-ZRY 
60 PRINT : PRINT : 
GOTO 350 
19 REM ..... 415GYAKORLAT 
29 CLS s: 
DEFINT A-Z 


50 INPUT"A SZAM "3X s: 
PRINT"AZ ENNEL KISEBB PRIMSZAMOK :" : 
IF Xzi THEN 120 
FOGRRINT" árég rő 
IF Xs2 THEN 120 
MÓGRRENT 2 tg 
60 K-Z 
70 IF K:5X THEN 120 
80 FOR I:3 TO K/2r1 STEP 2 : 


Z5K/I : 
IF KEZtI THEN 110 
99 NEXT I 
100 PRINT K; 
110 KsEKH2 : 
GOTO 70 


129 PRINT : PRINT : GOTO 30 


19 REM ..... 4.16GYAKORLAT 

29 CLS : 

INPUT"AZ OT SZAM ";:A,B,C,DJE 
30 x-0 : I-0 
40 IF X3-A OR X:5B OR X:5C OR X;zD OR X:5E THEN X5X-1 : 
GOTO 49 

50 IF A-£(B THEN Z-B ELSE Z-A 

60 IF Z-C THEN Z-C 

79 IF Z£D THEN Z-D , 
89 IF Z-E THEN Z-E 

99 PRINTZ; : IzI41 : IF Id4 THEN STOP 

199 IF AzZ THEN A-X 

119 IF BsZ THEN B-X 

129 IF C5-Z THEN C-X 

138 IF D-Z THEN D-X 

149 IF E-Z THEN E-X 
. 152 GOTO 50 


50 


40 
59 
60 


70 
80 
70 


REM 1... AIZGYAKORL AT. 
CLS : 

DEFINT A-Z 

INPUT" A KET SZAM ":3X,Y : AzXtY 
IF XzY THEN 60 


IF X-Y THEN X5X-Y : GOTO 48 ELSE YbY-X : GOTO 40 
PRINT" L.N.K.O. s:"3X s: PRINT" L.K.K.T. 3"3A/X 
PRINT : PRINT s: GOTO 30 
REM c... AIBBYAKORLAT s 
CLS : j 
DEFINT A-Z 
INPUT"A KET SZAM ";3X,Y 
IF X2Y THEN ZzY s: YzX s Xzsz 
XzXt1 : IF X3zY THEN 80 
FOR I:2 TO X/Z2 : 
Z-X/I : 
IF XszZtI THEN 50 
NEXT I 3: 
PRINT X s: 
GOTO 909 
PRINT"NINCS ILYEN PRIMSZAM !" 
STOP 
REM. eses PLIZ BYVAKORLAT 
DEFINT A-Z : 
CLS : 
INPUT"A KET SZAM "; XY : 
M-G : N-XD 
FOR I:52 TO X/2 : 
Z:X/I 
IF XszZtI THEN MzM-ti 
NEXT 
FOR 152 TO Y/2 : 
ZzY/I 
IF YsZxI THEN N-ENt1 
NEXT 
IF M-N THEN PRINT"AZ OSZTOK SZAMA UGYANANNYI . ! ":GOTO: 


199 PRINT"TOBB OSZTOJA VAN A KÖVETKEZO SZAMNAK :" 
110 IF M(N THEN PRINT Y ELSE PRINT X 
129 STOP 


10 
20 
30 
40 
50 
60 


709 
80 


REM 2... AZOBYAKORLAT 
DEFINT X;Y 
CLs 
FOR XS TO 45 
FOR Y-5 TO 45 
IF X5190 OR X-28 OR X530 OR X549 OR 11-X AND X£19 
OR Y:10 OR Y-29 OR Y-30 OR Y5409 OR 11-Y AND YC19 
THEN 79 
ELSE SET(X,Y) 
NEXT Y,X 
GOTO 80 


127 


10 
20 


30 


40 
59 


10 
20 


38 


40 


70 


89 


99 


Ötödik fejezet 


REM ..... SI GYAKORLAT 
CLS : j 
Xz63 : Ys23 
FOR B5-g TO 20 : 
IF Bzi1 OR B-2 OR B-3 OR B5-5 OR B-6ó OR B-7 OR B-B8B OR B-12 
THEN 49 ELSE Az1.BESOR(499-BtB) : 
SET(X-HAGYHB) : SET(XHA,Y-B) : SET(X-ALY4HB) : SET(X-A,Y-B) 
NEXT B 


GOTO 50 

REM (ss SZBYAKORLAT 

CLS z: 

Xz6ó3 : 25 

PRINT: PRINT: PRINT" 12":PRINT: 
PRINT: PRINT: PRINT: FPRINT:PRINT" szg 

PRINT"9 du A) 

PRINT: PRINT: PRINT: PRINT:PRINT:PRINTz 

PRINT" a" 

FOR B:-O TO 20 : 


IF Bz1i OR B-2 OR B-3 OR B-5 OR B-6 OR B-7 OR B-8 OR B-12 
THEN 59 ELSE A-1.8£tSOR(499-—-BtB) : 
SET(X4HA,LY4B) : SET(XtrA,Y-B) s: SET(X-AGYtB) : SET(X—-A,Y-B) 
NEXT 
FOR I:9 TO 15 : SET(65,25-I) s: NEXT I s: 
FOR I-89 TO 190 : NEXT : 
FOR Izs15 TO 0 STEP -1 s: RESET(63,25-I) s: NEXT I 
FOR I:0 TO 39 : SET(634tI,25) zs: NEXT I : 
FOR I-0 TO 1990 : NEXT : 
FOR I:309 TO B STEP -1 : RESET(634tI,25) : NEXT I 
FOR Iz9g TO 15 s: SET(63,25tI) zs: NEXT I s 
FOR I-9 TO 109 : NEXT : 
FOR Iz215 TO 0 STEP -1 s: RESET(63,25tI) z: NEXT I 
FOR I: TO 309 : SET(63-I,25) s: NEXT I : 
FOR I:89 TO 198 : NEXT : 


FOR I5309 TO 0 STEP -1i RESET(63-I,25) : NEXT I 


199 GOTO 60 


10 
20 


50 
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REM 1. SIBYAKORLAT 

CLS s 

Isz1i 
Xz634EXP(—.O18I)$7S$4SIN(I$3.14/32) s: 
SET(X,23) 2 

FOR kz1 TO 50 s: NEXT : 

RESET(X,23) : 

IzI4ti : 

GOTO 30 


REM ..... SAGYAKORLAT 

CLS s: 

FOR Is1 TO 15 z: PRINT s: NEXT I s: 

I51 
XzEXP(—.O18I)XRSIN(I63.14/32) 475463 : 
SET(X,47) : 

IzI41i s: 

PRINT s: 

GOTO 39 


909 


REM deze -őes (8 Y. AK ORR LAT 
DEFRINTAZZ 1 8 

CLS 

I-0 : 

INPUT"A SZAM ":X : 

IF ABS(X) 539999 THEN 39 

IF X-0 THEN X5-X : Izi 

K-Z : PRINT 

Kz-Kt1 : A-IÍOLK : IF X-A THEN 79 ELSE 60 
IF Izsi THEN 99 


PRINTX, "2"  X/10C(K-1) 9 "Et"3:(K-1) z: GOTO 198 
PRINT-X em xZ 10L (KELNE ES gp 4K—1? 
1990 PRINT : PRINT : PRINT : 
GOTO 30 
REM 1... SEGBYAKORLAT 
Ces 
PRINT"sAZ EGVENLET cs 7 BEN) (KO) max Ze 2 PRINT 
INPUT"Xz ":X : PRINT 


PRINT"Xz "$X,"SIN(X)-XZ2z "$SIN(X)-XZ2 : FRINT : PRINT 

IF ABS(SIN(X)-X/2)£.B80801 THEN PRINT" A GYOK : ";X ELSE 40 
PRINT § 

STOP 


REM Searle Ha 7 YA ÉR ÁÁ TT 

CLS 

INPUT"AZ OLDAL Azc"za z- 

IF A: THEN 49 ELSE FRINT" 

EZ NEM EGY HÁAROMSZOG OLDALA !" : GOTO 38 
INPUT"A KET SZOG (RADIANBAN MERVE !) X,Ys"3X,Y 

Zz3.14159-X-Y z: 

IF Z-8 OR XC(0 OR Y-G THEN PRINT" 

EZEK NEM EGY HAROMSZOG SZOGEI !" : GOTO 40 

PRINT : FPRINT"A HARMADIK SZOG Z-";Z 

PRINT : FRINT"A MASIK KET OLDAL Bz";ARSIN(X)/SIN(Z) , 
sCsz":ASGSIN(Y)/SIN(Z) 

PRINT s: PRINT s: PRINT s: GOTO 30 


REM 25. sz zös BE YALK G.R. CAT 

CLS : 

PRINT"A KOSZINUSZ FUGGYENY HELYETTESITESI ERTEKEI :" 
INPUT"KEZDOERTEK "§X : INPUT"LEPESKOZ ";Y 

FOR ImX TO XrI1DXRY STEP Y : PRINT I,COS(I) s: NEXT I 
PRINT : PRINT"TOVABB (1) VEGE (0)"; 

INPUT I : IF I5-1 THEN 29 ELSE IF 1-8 THEN STOP ELSE 60 


REM sans. S? BYAKORLAT 

CLS 

INPUT"NE ":N 

PRINT" N (€(1--1/NIEN (ARI ZNY ENGEDNI 
FOR IzN TO N$7 : PRINTI,(141/7IDCI,(i1r1/IDC(I$r1) s: NEXT I 
PRINT : PRINT : PRINT"UJ N ERTEK (1) "; 

INPUTI : IF Izi THEN 50 

STOP 
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Hatodik fejezet 


18" REM az za vóat B. VAK OR LAT 

20 ELS z s 
A-RND(127) B-RND(47) : M-RND(127) : N-RND(47) s: 
X-RND(127) : Y5:RND(47) 

38 SET(A,B) : SET(M,N) : SET(X,Y) : 


IF INKEY$-"" THEN CLS : GOTO 39 ELSE 20 
198 REM (1 .ss 652 BV AKORLAT 
29 CLS 
39 GOTO 50 
409 CLS : 
X-RND(127) : Y-RND(47) s: SET(X,Y) 
50 B$-INKEY$ : IF B$z"" THEN 50 ELSE IF A$-(:B$ THEN A$-B$ : GOTO 40 


69 FOR I51 TO 50 s: NEXT : 
RESET(X,Y) : 
FOR Izs1 TO 58 : NEXT 


70 A$-INKEY$ : IF A$z"" OR A$-B$ THEN SET(X,Y) : GOTO 60 ELSE 40 
19" REM 10 vss éra lő, VA KOLR IL ÁST 
20 DEFINT,I : 

CLS : 


Xz63 : Y23 
30 I-RND(4) 
40 IF Izi THEN X-Xt4 
59 IF I52 THEN Y-Y-42 
60 IF I:3 THEN X-X-4 IF X-£g THEN X-0 
70 IF I:4 THEN Y5Y-2 IF Y-g THEN Y-0 
80 RESET(A,B) : SET(X,Y) : 

AzX : BzY : 

GOTO 30 


IF X3127 THEN X5127 
IF Y5347 THEN Y547 


19 REM ..... G6AGYAKORLAT 
20 CLS : 

SET(1,1) : SET(1,20) : SET(25,1) : SET(25,27) : SET(50,5) : SET(50,15) 
30 IERND(6) 
40 IF Iz1 THEN X-1 : Y-1 ELSE IF I-2 THEN X-i : Y5-29 ELSE 

IF I-3 THEN X-25 : Ys1 ELSE IF I-4 THEN X-25 : Y527 ELSE 

IF 1-5 THEN X550 : Y-5 ELSE IF I-6 THEN X-50 : Y-15 
59 FOR I-i1 TOS : ; 

RESET(X,Y) : FOR J-1-TO 50 : NEXT J : SET(X,Y) : 


NEXT I 
69 GOTO 350 
10 REM. 65BYAKORLAT 
20 IF INKEY$-"" THEN 29 ELSE CLS 


390 X5-RND(129)43 : Y-RND(49)43 : SET(X,Y) : 
FOR Iz1 TO,3 s SET(XFIGYHI) : SET(X-IGY4rI) : NEXT I 3 
FOR I:--3 TO 3 STEP 2.: SET(X4tI,Y-43) : NEXT I 

49 GOTO 20 


19 REM ..... 6.6 

20 FOR I-i TO 15 
ERENTE SSE 

30 I-RND(8098) 29 
FOR J51 TO I 
GOTO 29 
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JA KÉT 


SEK VVaR 


REM ee e ne ée ZEG YA KZÖSR ESA ST; 
DEFINT A-Z : 


CLS s: 
PRINT : PRINT : PRINT 

ZO PRINT" FEEETEE PEREEEEN z 
FOR ISi "TTOSZT A 
FRINT" p hl ak 48 g 
NEXT : 

PRINT" FEEHb4- ELL ÉLESEN 
490 I-RND(2) : J-RND(2) 
50 FOR B:-3 TO 23 : 
FOR A-i TO 10 : 
IF J-1i.THEN SET(13-4(I-—1) $22-4-A,9-4B) 
ELSE RESET(1354(I-—1) 9224A, 535-B) 

60 NEXT A,B 

79 GOTO 40 

18 REM vé S BBYAKORLAT Ér 

20 DEFINTA-Z : 

A-g : B5-O : C-0 : D-0 : E-0 :F-0 : 
(mi E - ) 
30 FRINT" DOBALOM A KOCKAT !!! A DOBASOK SZAMA :" 
40 FOR K-i TO 10900 : 
I-RND(6) : ő 
PRINTK; : 
IFIS1THENAZATIELSEIFI-2THENB-Bt1ELSEIFI-3THENC-Ct1 
ELSEIFIS4THENDSDH1ELSEIFI-STHENE-Et1ELSEF—-Ft1 

50 NEXT K 

60 CLS : 

PRINT"A KOCKADOBASOK ELOSZLASA :" : PRINT : PRINT"1-es" A : 
PRINT"2-es",B : PRINT"3-as",C : PRINT"4-es",D : PRINT"5-os",E s: 
PRINT"6-—-os" ,F 

70 STOP 

TON REN ora aa vész B VA KORE AT 

20 CLS : 

INPUT"A KEZDOPONT KOORDINATAI "5X,Y 

39 CLS : 

SET(X;Y) 

40 B$-A$ 

59 IF B$z"F" THEN Y5:Y-1 s: IF Y-Og THEN Y:0 

60 IF B$-"L" THEN Y5rYti : IF Y:47 THEN Y:47 

79 IF B$-"J" THEN XzX4t1 : IF X5127 THEN X-127 

80 IF B$z"B" THEN X-X-1 : IF X-C0D THEN X-D 

99 SET(X;Y) é 

100 A$-INKEY$ : IF A$-"" THEN 58 ELSE 40 

10 REM ..... 6.18 GYA K ÖÖ RIE AT 

29 DEFINT X 

s8 CLS s 
XzRND (4) 

40 IF Xz1 THEN PRINT" TAVASZ" ELSE IF X-2 THEN PRINT" 
NYAR" ELSE IF X-3 THEN PRINT" osz" 
EÉSESPRINT" 

3 TET 

50 FOR I-1 TO 200 : NEXT : GOTO 30 

19 REM ..... 6.1 GYAKORLAT 

20 CLS 

39 X-RND(109) : Y-RND(10909) : PRINT : PRINT 

40 FRINT"MENNYIVEL EGYENLO ?" : PRINT : 

PEGEN TK ET ev veget megl EA NPUT A ré PRINT-r2 PRINT 

50 IF X£Y-A THEN PRINT" JOL SZAMOLTAL ! " : PRINT s: PRINT : 
GOTO 309 , 

60 PRINT" ELLENORIZD !!!" : GOTO 40 
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19 REM ..... 6.61ZGYAKORLAT 
29 CLS 
30 PRINT : PRINT : PRINT : 

XzZRND(199) : Y-RND(i10B) 
40 PRINT : PRINT" MI AZ EREDMENY ?",XEYs" s: gal TV fg 
59 INPUT A : IF Y-A THEN PRINT"JOL SZAMOLTAL !" : 
60 PRINT"ELLENORIZD !!!" : PRINT : GOTO 40 


; 
T : GOTO 39 


m.j 

x 

- a 
zi 


18 REN cason SS BYAKOÓORLAT 
" 29.CLS z: 

PRINT s: PRINT : PRINT : . 
PRINT"HA MEGJELENIK EGY FELKIALTOJEL A KEPERNYON, 
NYOMJAL MEG EGY BILLENTYUT !" 

sör PRINT 3. PRINT :. PRINT § PRINT KEZD WET J ÜK?" 

40 IF INKEY£$-"" THEN 49 ELSE CLS 

58 K-RND(19902)-4100 : H 
FOR Izsi TO K s: NEXT z 
I-0 : 
ASZINKEYs : 
PRINE" Jz) 

60 IF INKEYtz"" THEN I-Iti : GOTO 60 

70 PRINT : PRINT s: PRINT : 
PRINT I," IDOEGYSEGRE VOLT SZUKSEGED !" s: PRINT : PRINT s 
PRINT"FOLYTATOD -I NEM — N" 

80 A$-INKEY$ : IF A$z"I" THEN 29 ELSE IF A$-"N" THEN STOP ELSE 80 


19 REM ...v. HAI BGYAKORLAT 
29 CLS : 
FRINT"HA MEGJELENIK AZ 1-ES SZAM, AKKOR AZ 1-ES, 
HA A 9-ES SZAM, AKKOR A 9-ES BILLENTYUT KELL 


LENYOMNI ! 
K ESZ-D ME GTd UK?" 

39 IF INKEY$-"" THEN 39 ELSE CLS 
40 I:RND(1090909)-10090 : 

FOR kzsi TO I s: NEXT : 

IO : 

A$-INKEYS 
50 IF RND(2)-i THEN 89 
60 PRINT"1" 
70 IF INKEY$z"1" THEN 199 ELSE I-Iti : GOTO 70 
80 PRINT" 9. 


98 IF INKEY£$-"9" THEN 199 ELSE IzI4ti : GÖTO 90 

190 PRINT : PRINT : PRINT"AZ IDOEGYSEG : ";I s: PRINT : 
PRINT : PRINT : PRINT"ELOVASTAD ?" 

119 TF INKEY$z"" THEN 119 ELSE 20 


18" REM sss 615 BYVYVAKORLAÁT 

29 CLS : 
PRINT : PRINT"A JATEKOSOK A - D - BILLENTYU 
LENYOMASAVAL. DOBHATNAK ! 
g KE Z.DUM E W 400 Ke 

30 IF INKEY$z-"" THEN 39 ELSE CLS : A-80 : B-0 

49 INPUT" A B JATEKOS TIPFPJE "3X : PRINT s PRINT : 
PRINT"AZ A JATEKOS DOB :" 

580 IF INKEY$-"D" THEN Y:-RND(6) : PRINT Y ELSE 50 

69 IF XzY THEN AsAtX ELSE A-A-ABS(X-Y) 

70 FRINT"V"Az ";:A : PRINT : FRINT 

80 IF A299 THEN PRINT : PRINT"AZ A JATEKOS NYERT !" s: STOP 

99 INPUT" Az A JATEKOS TIPPJE ";5X : PRINT : PRINT : 
PRINT"A B JATEKOS DOB !" 

100 IF INKEY$z-"D" THEN Y:-RND(6) : PRINT Y ELSE 199 

110 IF X-Y THEN B-BtX ELSE B-B-ABS(X-Y) 

129 PRINT"Bz ":B : PRINT : FRINT 

130 IF B2399 THEN PRINT : PRINT"A B JATEKOS NYERT !" ELSE 49 

140 STOF E 


Hetedik fejezet 


19 REM ..... 71 GYAKORLAT 
20 DEFSTR A,B : 

CLS 
30 INPUT"A SZO "FA : PRINT : PRINT"A SZO FORDITVA "; 
40 XELEN(A) : 

FOR I-X TO 1 STEP-1 : PRINT MID$(A,I,1); : NEXT I 
50 PRINT : PRINT : FRINT : GOTO 30 


TÖSREM ae sjsa 7az BY A KORL AT 
20 DEFSTR A : 

CLS 
30 INPUT"A SZOVEG "3zA s: 

XzLEN(A) : 4-0 
48 FOR I5si TO X : 

IF MID$(A,I,1)-—"A" THEN J-Jt1 

590 NEXT I 
60 PRINT : PRINT"AZ A BETUK SZAMA :":J : PRINT : FRINT 
70 GOTO 30 


18. REM (s... ZSBYAKORLAT 
290 DEFSTR A,B : 
Ces 
390 INPUT"S"A SZO "za : 
X5LEN(A) 
49 FOR I5-1 TOX : 
B-MID$(A,I,1) : 
IF B5-"A" THEN FRINT"4£";:; ELSE PRINT B; 
590 NEXT I 
60 PRINT : PRINT : GOTO 30 


19 REM ..... 74AGYAKORLAT 
20 DEFSTR A,B : 


CLS 
530 INPUT"A SZOVEG ";zA s: 
XzLEN(A) 
40 FOR I5s1 TOX s: 
B-MID$(A,I,1) : 
IF BX2" " THEN PRINT B; 
59 NEXT I 


690 PRINT : PRINT : GOTO 30 


TRENT Tále eres SZ OGY A KOR CSAT 
20 DEFSTR A,B : 

"eLs 
30 INPUT"A SZO "3A : 

X5LEN(A) : 

PRINT 


40 FOR I-1 TO X : B:-MID$(A,I,1) : PRINT CHR$(ASC(B)-432); : NEXT I 
530 PRINT : PRINT : PRINT : GOTO 30 


10 REM ..... 76GYAKORLAT 
29 CLS 
39 FOR I-0 TO 14 s 


PRINT RIGHT$(STR$(IXI) LEN(STR$(I$I))—1); : 
NEXT I 


40 PRINT : FRINT : STOP 
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60 
70 
80 
99 


REM lessáése Szaz ANYAK OAIROÉKAGTI 
CLS : 
DEFSTR K : DEFINT T,Z 
INPUT"A KETTES SZAMRENDSZERBELI SZAM :";K s: 
XzLEN(K) s: Ls1 
FOR. IsXTOÖ..1 STEP-1. 2 
IF MID$(K,I,1)-—"1" THEN TETáAL 


Lst.e2 z: 
NEXT Xs 
PRINT : PRINT K,"A TIZES SZAMRENDSZERBEN :"T 
PRINT s: PRINT : INPUT"A TIZES SZAMRENDSZERBELI SZAM ";T 
zt; ELET 
Z-T/2 : IF T-28Z THEN T5zT/2 : K5"0"4K ELSE T-(T-1)/2 : Kz"1"-4K 


IF T:G THEN 89 ELSE FPRINT : PRINT s: 
PRINT L,"A KETTES SZAMRENDSZERBEN :"  k 


100 PRINT : PRINT : FRINT : GOTO 30 . 


10 


20 


30 


40 


REM s szatt Z-ZBBGYAKBRLAT 
CLS : 
DEFSTR A 


1-9-4-RND(99) : J59-4RND(99) : AZSTR$(IxJ) : X-LEN(A) : 
AZRIGHT$(A,X—1) : 
IF X-4 THEN A—"0O"-4A 


PRINT A, : 
FOR I-1 TO 299 : NEXT : 
GOTO 30 


REM üissa 727 BY AK OSR EAT 
DEFSTR A,B : DEFINT XIZ : 
CLS € 
FOR Iszi TO 10 s: 
PRINT I;". SZAM5E ": : INPUT A : B5-BtA 
NEXI XT 
XSLEN(B) : 7-X/5 : XzX-S8tZ : 7-58Z-1 z: 
CLS 
FOR I5-1i1 TO Z STEF 5 : PRINT MID$(B,I,5) : NEXT I 
PRINT 
STOP 


REM 5 ése 78 B V..A. KOR LA T 

DEFSTR A,B : 

CLsS 

INPUT"A MUVELET "za : 

I-0 : XzLEN(A) ú 

IzI41 s: IF I2X THEN CLS : GOTO 50 

B-MID$(A,I,1) 

IF Bz"4" THEN Jt1 ELSE IF B-"4t" THEN J-0 ELSE 40 
CSVAL(LEFT$(AS,I-—-1)) : D-VAL(RIGHT$(A,X-—-I)) 

IF J THEN C5-C54D ELSE C€-CtD 

CLS : 

PRINT Az" — ":C : PRINT : PRINT : PRINT : GOTO 30 
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30 


10 
20 
30 
40 
50 


Nyolcadik fejezet 


REM 1... BIGYAKORLAT 
CLS 

PRINTERND(1916) , "VILLOG" z: 

FOR I51 TO 109 : NEXT : 

GOTO 20 


REM ..... BB2ZGYAKORLAT 

CLS : 

INPUT"HANYADIK KARAKTERFOZICIOTOL IRJAK ":K : 
INFUT"MIT IRJAK KI ";A$ 

ELS.)-g 

PRINTEK,A$ : 

FOR I-1 TO 199090 : NEXT : 


GOTO 20 

REM v.o. BEBSBGBYAKORLAT 

CCS : 

PRINRAZOS S 7/4798 PRINTOSAL A" s érez 8 
PRINTOS499". 0 0 ."3; s PRINTOS15S,".  — 0"; s 
PRINTGA77,". Oo ."g 

GOTO 39 [ 
REM a ness B4A4ABYAKORLAT 

CLS 

FOR Izi TO 28 s: READ X.Y s: SET(X,Y) : NEXT I 
GOTO 409 


DATA 60,19,61,10,62,19,63,19,64,10,59,11,59,12,61,12,63,12, 
59,13,59,14,62,14,59,15,597,16,62,16,59,17,609,18,61,18,62, 
18,63,18,64,18,65,17,65,16,65,15,65,14,65,13,65,12,65,11 


REMES áera s "BS 8 YA KB RL AT 

CLS 

PRINTESt64, " a E OS ESZENDTOXIDT 
PRINTE10r64," a ESZA a EC a Ed ugazt Si 

GSOTO 50 
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19 REM ..... B.6GYAKORLAT 

29 CLS 

30  FRINT" s s.k 10 tsátée sát ét] 

PRINT" E EK dai szágetti 
PRINT" p 4" g 
ERENT? 788 alj 

40. PRINT" 4 hapélb ) 
FRINT" 4-7 padjsék 
PRINT" ak " "ea 
PRINT" És E aza 

Sid ERTNT" ak eng 
PRINT" Ci atól.) 
PRINT" h eg 
PRINT" ha b üsé ! 

84. "PRINTM. csá. 
PRINT" 4 En E ; bg 
PRINT"-4 ak ha pajzdkű ) 
PRINT"-4 4 0 4 kk 4 pg 

70 FOR Isi TO 67 : READ X,Y : SET(X GY) 3 NEXT I 

89 FRINTEG6$64--3O,"BUDAPE S T"; 

979 GOTO 99 

100 DATA 50,2,50,3,497,4,48,5,48,6,47,7,47,8,46,97,46,109,46,11, 
45,12,45,13,45,14,46,15,46,16,46,17,47,18,47,19,48,20, 
48,21,48,22,48,23,49,24,50,25,50,26,51,27,51,28,52,29, 
51,39,50,31,50,32,49,33,48,234,47,533,46,34,45,35,44,36, 
43,37,42,38 

110 DATA 38,397,35,40,32,41,31,42,30,42,29,43,26,44,20,45,15,46, z 
10,47 

120 DATA 48,34,49,35,51,36,53,37,55,38,54,359,54,40,53,41, 
52,42,51,44,590,46 

1390 DATA 46,12,47,13,48,14,48,15,48,16,47,17,46,18 


18 REM vess. BZBGYAKORLAT 

29 CLS 7 

30 FOR Xzi6 TO 122 STEP 3 : SET(X547-68LOG(X-15)) : NEXT X 

40 FOR X:9€ TO 127 : SET(X,36) : NEXT X : 
FOR YO TO 45 : SET(19,Y) : NEXT Y 

50 PRINTEG13r64--2,"D"3: PRINTG1I3KGAFID, "19; o: 
FRINTESSLOBARIT NN UÚU.S"3 

60 GOTO 60 . 


19 REM ..... 8B.8GYAKORLAT 
29 DEFINT I : 
CLS : 
xzg k 
30 PRINT" X";5TAB(14);"INT(X) ":TAB(27) ; "25EX";:TAB(40) ; 
"XAXS;TAB(SZ); "SOR(X) "gp z i 
FOR 1-9 TO 63 : PRINTG64-4I,"—-"; : NEXT I ű 
40 PRINTEZ3rO4, ""z o: INPUT"A KEZDOERTEKE ":X : INPUT"A LEPESKOZZ ";K : 
157 
59 1-I-t1 : IF Iz15 THEN 40 
60 PRINTEIt64,X; : PRINT TAB(173);INT(X):TAB(26) s254X;TAB(39) 3 
X£X;TAB(52) :SOR(X); 


70 IF INKEY$-"" THEN 78 ELSE XzX4tK : GOTO 50 

1 
18 REM ..... 8-7 B-VJA KK EGR GATT 
29 CLS 


30 FOR Xzi TO 81 : SET(X,10) : SET(X,22) : NEXT X : 
FOR X5-i TO 81 STEF 28 : FOR Ys11 TO 21 : SET(X,Y) : NEXT Y,X 
40 XERND(4) : 
FRINTES$64—S4I19EX,"! "zs 
FOR 1-1 TO 200 : NEXT : 
FRINTES$64—S5-HIDAX," "goz 
GOTO 40. 


136 


19 REM ..... BIOGYAKORLAT 
29 CLS : 
L-0 
30 FOR A-ú TO 80 STEP 10 : 
FOR B-0 TO 40 STEP 5 : 
IF L--1 THEN L-0 : GOTO 50 ELSE L--1 
40 FOR I-2 TO 9 : FOR K-D TO 4 : SET(AtI,B$K) : NEXT K,I 
50 NEXT B,A 
60 A-RND(9)-1 : BERND(9)-1 : A-AKID : B-BtS5 
70 FOR I51 TO? : 
READ X,Y : ( 
IF POINT(A,B) THEN RESET(AtX,B$HY) ELSE SET(AtX,BHY) 
89 NEXT I : 
FOR J-i TO 209 : NEXT J 
90 IF POINT(A,B) THEN FORI-OTO9:FORKEOTO4 : SET (AI , BtK) : NEXT: NEXT 
ELSE FORI5OTO?:FORKEOTO4: RESET (At-I , BHK) : NEXT: NEXT 
109 RESTORE : 
GOTO 60 ; 
119 DATA 3,1,4,1,5,1,3.2.4,2,2,3.3,3.453.553 


10 REM ..... B8611GYAKORLAT 
20 CLS : 
PRINTESEG4-AZS "INDULHAT ?" : 
I-0 : K-BD : 
FRINTES$64-429, I, "2", kK 
30 IF INKEY$z-"I" THEN 
PRINTE5S$464-425," 
ELSE. 30 
40 KzKt1i : IF K:560 THEN K-O : I-Iti 
50 PRINTEBKG4-H29,I,":",K 
60 IF INKEYáz"S" THEN 79 ELSE 40 
70 IF INKEY$-"O0" THEN 29 ELSE 70 


10 REM ...., BAIZGYAKORLAT 5 
29 CLS 5 
30 FOR I5i1 TO3 ; 
40 FOR KO TO 15 : READ A : FRINTEKt6GAFIKIS,ACI; : NEXT K 
50 — RESTORE : 

NEXT I 
690 GOTO 60 
70 DATA 1,2,3,4,5,6,7.,8597,10,11,12,13,14,15,16 


19 REM ..... B6ISGYAKORLAT 
29 CLS : 
FOR Iz5 TO 54 PRINTE6$t64--I, CHRE(K) : NEXT I 
39 FOR I-1i1 TO 299 NEXT 
40 FOR I-5S54 TO 5 STEP-1 : PRINTE6GH64-4I  CHR$(32) : NEXT I 


50 GOTO 20 

19 REM ..... BIA4GYAKORLAT 

29 CLS : j 
Ks314RND(160) 


309 FOR 1515 TO 4 STEP-1 : j 
PRINTEIk64-4-50-I ,CHRF(K); : PRINTEIX6G4FIBHI CHRE(K); : ! 

NEXT I j 
40 IF INKEY$z"" THEN 49 ELSE 20 E ! 


19 REM ..... BAISGYAKORLAT ; 
20 CLS 

39 FOR I515 TO 4 STEP -1 : 

PRINTEI164--50-I , CHR$(31-RND(160)); : § ! 

PRINTGI464--18--I , CHR$(31-4RND(16)); : j 

NEXT I ! 

4Z IF INKEY$-"" THEN 49 ELSE 30 ] 


137 ! 


10: REM. Ce és BSA 6 (BEVA A GENO RAL TAZIK 


I-RND(160)-31 : ASZZCHRÉ(I) 
Ssö FORSXSSS TOT 9 
FRINTEX464--21 Asz; : FPRINTEX$H64-H30O,AS; : 
FRINTG4464-4-194X,A$; : PRINTG10k64-HI194X,A$; s: 


NEXT X 
40 PRINTG7x64424,I; 
59 IF INKEY$-"" THEN 58 ELSE 20 
TO REMUL sss AL17 6 VA K OR É AT 
20 CLS 


39 ISRND(8) : J-RND(B) s: C9 
FRINTE(I-1) k1284J$7 ,CHRE((I-—-1) $BHFJHI27); : 
GOTO 30 


19:REM a.s. IB BYE KORLAT 

209 CLS 

380 FOR X-1 TO 20 : 

SET(41,X).: SET(B83,X) s SET(41-284X,0) s: SET(41-4-28X,21) 3 

NEXT X 

49 FRINTE24t64-25,CHR$(131) CHRE(131) 5CHRS$(131); oz 
FRINTE2$k64-535,CHR$(131) ;CHRÉ(131) 5 CHRE(131); 

59 FPRINTE3$644-31 ,CHRÉ(191); 

.60 PRINTES$r64439 , CHR$(141) ;CHR$(140) ;CHRÉFC(142); 

70 GOTO 70 


HÖS REM társát e  Bs1? B VIA KOR CAT 
20 DEFSTR A,B 
39 CLS 
40 PRINTED,""; z 
50 XzLEN(A) : I-0 
60 I-I-41 
70 IF I:X-3 THEN PRINT"NEM JO A SZO !!" : GOTO 100 € 
89 IF MID$(A,I,3)5"SSZ" THEN BELEFT$(A,I)-H"7-" : AZRIGHT$(A,X-I) 

ELSE 60 


INPUT"A SZO ";A § 


90 PRINTG€448-LEN(B) , B; A 
109 FOR K-G TO 3000 : NEXT : GOTO 30 


Kilencedik fejezet 


190 REM ..... 91 GYAKORLAT 
29 DEFSTR A s 
CLS 
30 A(OY-VV" s: ACI)z"E" s: A(2YEML" : A(Z)ZAC(1) : A(4)-IT" o: 
A(S)-A(2) : A(G)ZAC(1) : A(7)E"N" sú 
48 X-RND(8)-—-1 : PRINTESx64-4-20-43EX,PA(X)g s 
FOR Is1 TO 290 : NEXT s: 
GOTO 40 
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10 REM ..... oz GML A, ISZOL RELSATT 
29 CLS s: 

PRINT"KEREM A NEVEKET !" 53 
50.FOR 15-9-TO ? s  INPUT A$(I) : NEXT I s 


CLS 3 
40 I1-RND(19)-i : J-RND(19)-—-1 s: IF I-J THEN 40 
50 IF A$(I)-"" OR A$(J)—"" THEN 49 ELSE FRINTASK(I)  A$(J) s: 
A$(I)-"" ; A$(J)Z" 
60 FOR I-9 TO? : 
IF A$(I)a"" THEN 70 ELSE 40 
70 NEXT I 


89 PRINT : STOF 


HÖGREM ses s 75 GYAKORLAT 
29 CLS s: 
DIM X(29) : 
PFRINTESHO4,"" ; 
39 FOR Isi TO 10 : XCI)SRND(99) s: PRINT-XC(I)s; s: NEXT I 2: 


PRINT : 

FOR I511 TO 20 s X(I):RND(99) s: PRINT XCI); : NEXT I 
40 PRINT : PRINT : PRINT "EGY KIS TURELMET KEREK !" : FRINT s: PRINT 
59 Izi : J-2 
60 IF X(I2)5X(J) THEN XzX(J) s: X(J)-X(I) zs XC(I)-X 


70 JzJt1 : IF JAZ21 THEN 60 

89 IzIti : J-Iti : IF I-29 THEN 60 

90- FOR Is20 TO 11 STEP-1 :3 PRINTXCI)3 : NEXT I s 
PRINT s: 
FOR 15109 TO 1 8STEP-1 s: PRINTXCI): s. NEXT 1 


mm MATT AAN 


19 REM ..... 9.4 
29 DIM A(19,10) a 
30 FOR I-0 TO 10 : A(I,0)-1 : A(I,I)D-0 : NEXT I 
4G FOR I51 TO 10 : FOR J-1 TO 10 : A(I,J)-A(I-1,J-1)4A(I-1,3) : NEXT J,I 
59 CLS 
69 FOR I-0 TO 10 : 

FOR J-g TO 10 : ; 

IF A(I,J)30 THEN PRINTES30-IKOLFJHOSA(I,J)g 
70 NEXT J,I 


ir] 


VAK ORAL ALÓ 


89 GOTO 89 
8 REM Sas asr7s BYAKWRLAT 
20 DIM A(ig,5) 
39 CLS : 
PRINT"EZ EGY ELLENORZO !" : PRINTE256, "A TANTARGYAK 


MATEK c s FIZIKA — 2 suit : NYELV 55 971. IRODALOM-— 
TÖRTENELEM - S , FOLDRAJZ - 6 , KEMIA - 7 , BIOLOGIA - 
OROSZ Za ENEKZTTGn 
40 PRINTE704, "OLVASOL.  (K) ERESZ" ACBwE 
50 A$z-INKEY$ : IF A$z"B" THEN6GB ELSE IF A$-"K" THEN 99 ELSE.50 
60 PRINTES32,CHR$(14):; : INPUTS"A TANTARGY KODSZAMA ";5X 
70 IF I(CX):5 THEN FRINT"EBBOL A TANTARGYBOL TOBB JEGYET NEM 
IRHATSZ !" s: FOR Iz1i TO 9099 : NEXT : GOTO 30 
80 INPUT"AZ OSZTALYZAT ";Y : 
AC(XSIC(X))EY s: I(XY)-I(X)ti z: 
GOTO 309 
70 PRINTESZZ,CHR$(14)3 : INPUT"A TANTARGY KODSZAMA ";5X 
100 FRINTEB96G,"A JEGYEK s: "; 


Mp 


119 FOR I-9 TO I(X)-i s: PRINTA(X,I): ENEX TSA 98 
PRINTEe97:50 , "MEGNEZTED ?" 
120 IF INKEY$-"" THEN 129 ELSE 30 


139 


10 REM ..... J7OGYAKORLAT 

29 DIM A(90) s: 
CLS s: 
PRINT"LOTTOHUZOK !" 

30 FOR I-1i1 TO 1999 : X-RND(990) : A(XD-A(X)ti : NEXT I 
CLS 5. 

40 FRINTESG4 ,CHRÉEC(14); : INPUT"MELYIK SZAM ERDEKEL ";X 
IF XC(G OR X:-990 THEN 70 

59 PRINTE448, "EZT .A SZAMOT ",A(X) , "ESETBEN HUZTAM KI !" 

60 FOR I-i TO 499 : NEXT 

70 PRINTE64,CHRE(25S5) : GOTO 40 


19 (REM cser. RZBYAKORLAT 
20 DEFINT A-Z : DIM A(50) : 
CLS s: 
FPRINT"VELETLENSZAMOK " . . 
39 FOR I-i TO 19909 : X5-RND(590) : A(X)-A(X)ti : NEXT I 
CLS 
40 PRINT"SZAMOLOK" 
59 FOR I-2 TO 50 : 
t IF A(J)ZA(I) THEN J-rI 
60 NEXT I : 
XZ47/A(J) s: 
CLS 
70 FOR I-i1 TO 50 : FOR J-1 TO X$A(I) : SET(I0428I,J) s: NEXT J,I 
89 GOTO 80 


J-i 


19" REM sss VBEBYAKORLAT 
20 DEFINT A-Z z: 
CLS 
30 INPUT"A SZAM ( 53 0 ) ";N : PRINT s: 
PRINT"AZ ENNEL KISEBB PRIMSZAMOK :" : PRINT 
490 DIM A(N) s: 
FOR I5si TON z A(I)sI s: NEXT I 
58 FOR I-2 TO N/Z : FOR J-2ZtI TÓ N STEP I : A(J)-B : NEXT J,I 
60 FOR Izi TO N-i 3 
IF A(I):0 THEN PRINT A(I); 
70 NEXT I : 
PRINT : PRINT : 
CLEAR : 
GOTO 30 


10 REM ..... 29GYAKORLAT 
29 DIM A(15) 
30 CLS : 

PRINT" A 16 SZAM :" 
40 FOR I-O TO 15 
50 INFUT A(I) : IF A(I)-C32 OR A(I)5191 

THEN PRINT"UJ SZAMOT KEREK !" : GOTO 50 

690 NEXT I : 

CLS 
70 FOR I:O TO 15 : 

PRINTEI$6442O,A(I); s: PRINTE€I$k64-435,CHR$(AC(I))g : 

NEXT I 

84 GOTO 8090 
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10 
20 


30 


49 


50 


REM ..... SEA GYV AK TOLRELA TT 

CLS : k 
INPFUT"HANY BETUBOL ALL A SZO ";N : N-N-1 
DEFSTR A : DIM A(N) s: 


Az" 
FRINT s: PRINT"KEREM A SZO BETUIT ! " 
FOR I:-8 TON s: INPUT A(I) s: NEXT I 
I-0 : J-i 


60 IF A(I)ZA(J) THEN 78 ELSE J-I 

70 I5I41 : IF IzJ THEN IsI-ti 

80 IF I£-N THEN 60 

99 IF A(J)-"x" THEN AZA(J)FA : A(J)-z"e" : GOTO 50 
199 CLS : 


FRINTE6550,A 


119 GOTO 110 


10 
20 


30 
40 


50 


REM usa ar Al BNAKORLE AT 
CLS : 

DEFSTR A,B : DIM-A(19) 

PRINTAO A BETUKESZLEIE Ta" 


FOR I:-0 TO 19 s: 

A(I) -CHR$(RND(26)4t64) : PRINTEZHÓ4438I,SA(I) : 
NEXT I 
FPRINTOGEG4 "A SZO : " : Az"" : 
FOR izi TO 5 : AZATA(RND(29)—-1) : NEXT I : 
FRINTEBKH64 , A 
PRINTG649,"UJ SZO (U) UJ BETUKESZLET (B) " 


BzINKEY$ : IF B-"U" THEN 50 ELSE IF B-"B" THEN 530 
GOTO 70 


REM ..... DVIZGYAKORLAT 
DIM A(13,1) 
FOR I-9 TO 13 : READ A(I,0) : READ A(I,1) : NEXT I 
CLS s 
FOR I:5 TO 45 STEP 10 s: 

FOR J:0 TO 173 : 

PRINTGA(J,0)tIR16,CHRS$(A(J,1)); : 

NEXT J,I 
GOTO 50 
DATA 5,149,1977,140,68,170,131,170,194,170,257,1790,70,149, 
135,149,200,149,265,149,195,136,196,136,198,132,199,132 


REM Csanne 7 AS BYAKORLAT 
CLEAR S00 : 

DEFSTR A,C : DIM A(8,8) : 

1-0 

CLS : 

PRINTESSO "ME MOR I A -JATEK" : 
FOR I5s1 TO 5900 : NEXT : 


CLs 
FOR I-1i TO 8 : PRINTS1OtIK3,I : PRINTEIX64472,1I : NEXT I 
FRINTEB32, "EGY KIS TURELMET KEREK !" : C-CHR$(127) 


FOR I5s1i TOB : 
FOR J5s1 TO B 


X-RND(63)-H128 : IF A(I,J)2"" THEN 99 ELSE A(I,J)SCHR$(X) 
MERND(8) : NERND(B) : IF A(M,N)3"" THEN 89 ELSE A(M,N)ECHR$(X) 
NEXT J,I 
FOR I5i TO 8 : FOR J-1 TO 8 : FRINTEIk644754JH3,C; : NEXT J,I 
PRINTESZZ2, CHRE(14); : INPUT"AZ ELSO LAF KOORDINATAI "5X,Y s 
PRINTEYEO4A7SHXEZSA(X,Y); 
PRINTE896 , CHRE (14) 3 : INPFUT"A MASODIK LAP KOORDINATAI ";M,N: 


FRINTEN$64-754HMEZ,A(M,N); : PRINTE€945,"MEGNEZTED ?"; 
IF INKEYsz"" THEN 130 ELSE PRINTES832,CHR$S(254); : 
FRINTE896 , CHR$ (254) ; 


149 IF A(X,Y)-A(M,N) THEN 119 ELSE 


PRINTEY464-4754X$3,Cs; : PRINTENt64475S54TMES,C; : GOTO 110 
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HZREP evé széte TELE GIYVÁSKHOSR LAT p 
29 CLEAR 500 : 
DEFSTR A,B,C : DIM A(8,8) z 
C-CHRÉ(127) : B5-CHR$(167) 
38 CLS : 
PRINTES3ZG, "TORPED OO" 
FOR I5si TO 5090 : NEXT : 
CLs 


40 FOR I-i TO 8 : PRINTG10-4I$3,I : FPRINTEI$464472,I : NEXT I 

30 FOR Xz1 TO5 

60 I-RND(8) : J-RND(8) : IF A(I,3J)2"" THEN 609 ELSE A(I,J)-B 
790 NEXT X 

89 FOR I-1 TO 8 : FOR J-i TO 8 s: PFRINTEI$6447514J$3,C; s: NEXT J,I 
99 PRINTESBZZ,CHRÉ(14)i : INPUT"A LOVES KOORDINATAI gokat 48 


IF XC1 OR YXf1 OR X58 OR Y:8 THEN FRINTES32,CHR$ (250); : GOTO 90 
100 FRINTEYESGAHZSTXEZBJSÁAC(X,Y); : LELH1 : 


IF A(X9Y)3"" THEN PRINTEB96, "TALALT !" s ZsZti s 
FOR I-1 TO 500 : NEXT : FRINTEB96,CHRE(210); : 
IF 2-5 THEN 139 ELSE. FRINTES832 , CHR$(259)5 s: GOTO 99 " 


1109 PRINTEY$64-754XE3,"X"3 : PRINTES32,CHR$(250) ; 
129 GOTO 98 

130 FRINTEG969,"A LOVESEID SZAMA : ";L; 

149 GOTO 1409 


19 REM Sao ss IS GYAKORLAT 
20 DEFINT A-Z s: DIM A(99) 3 

FPRINT"LOTTOHUZOK !" 
30 FOR I-i1 TO 190990 s: X-RND(99) s: A(X)-A(X)ti : NEXT I 
49 J:0B : 

FOR Is2 TO 99 s: 

IP A(J)ZA(I) THEN J-I 

50 NEXT-I : 


X:47/A(J) 

60 CLS : 
ERINPT GRAFIKUS SZEMLELTETES (var éli 
SZAMSZERU EREDMENY Lökd 


70 DSzINKEY$ : IF D$-"1" THEN 80 ELSE IF D$-"2" THEN 119 ELSE 70 
89 CLS 

790 FOR Izi TO 989 : FOR J-0 TO X$A(I) : SET(I4H29,J) : NEXTJ,I 

190 D$-INKEY$ s: GOTO 70 


110 CLS : 
FPRINT"MELYIK ERTEKRE VAGY KIVANCSI ";§ s: INPUT N 
T290-ELS 
PRINT N, "EZT A SZAMOT " : PRINT : PRINT A(N) , "ESETBEN HUZTAM KI 


D$-INKEY$ : GOTO 70 


10 REM ..... 9.16 GYAKORLAT 
20 CLEAR 1999 : 5 

DEFSTR A : 

CLS : 


PRINTSKEREM: A. TIZSSZOT 
30 FOR I: TO 9 : INPUT A(I) s: NEXT I. : 
FRINT 
4 J-O : 
FOR Sai TŐ 9 is 
IF LEN(A(J) d) (LEN(A(I)) THEN J-I 
30 NEXT I 2 ; 
IF A(J)-—"" THEN PRINT : STOP ELSE PRINT A(J), : A(J)z"" : GOTO 40 
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úszás 


T9 REM Pe eres. Ze 177B. YA KB RI CSALT 
20 DEFSTR A : DIM A(15) s 
ELS 
59 FOR I5s98, TO. 15 : PRINT I418". SZAM s"3 s: INPUT A(I) s NEXT 1 
40 CLS : 
FOR I-O TO 15 : PRINTG€I$64-449-LEN(A(I)) ,A(I); : NEXT I 
39 GOTO 50 ha 


19 REM ..... .IBGYAKORLAT 
20 CLEAR 500 : 
DEFSTR AB : 
CLS 
30 PRINT"KEREK 19 DARAB J-T , VAGY LY -T TARTALMAZO SZOT !" 
49 FOR I-0 TO 9 : INPUT A(I) : NEXT I : 
CLS 
59 PRINT"EGESZITSD KI A HIANYOS SZOT J-VEL VAGY LY-NAL !" 
60 X-RND(19)-i : A-A(X) : I-0 : HELEN(A) 
70 I-I41 : 
IF MID$(A,I,1)—"J" THEN Ji ELSE 
IF MID$(A,I,2)-"LY" THEN J-2 ELSE 70 
BO PRINTESZ3O LEFT$(A,I-1); s: PRINTESZS,RIGHT$(A,H-I-J41)g : 
PRINTES94-4I,""3 : INPUT B : PRINTS530,CHR$(31) 
99 IF Bz"J" AND Jz1 OR BE"LY" AND J-2 THEN FRINT6770, "BRAVO" : 
PRINTESZBO,A : FOR I-1 TO 500 : NEXT : PRINTEG128,CHR$(31) : GOTO 60 
100 PRINTE€770, "IRGUM — BURGUM ! " : I50g : 
GOTO 70 


Tizedik fejezet 


19 REM ..... ID. GYAKORLAT 
29 CLS 
39 INPUT"NE ":N Os 

DIM A(N) : 

FOR I-8 TO N-1i : INPUT A(I) : NEXT 
49. GOSUB 60 : 

FRINT : 

FOR I: TO N-1i : PRINT A(I); : NEXT 
59 PRINT : 

STOP 
60 REM 
790  J-0g : 


FOR Izg TO N-1 s: 
IF A(I)XA(I41) THEN J-i : Z5-A(I) s: A(I)-AC(I4H1) s: A(I41)5Z 


89 NEXT I : 
IF J-1 THEN 70 
79 RETURN 
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10 REM ..... 0.2GYAKORLAT 
29 DIM B(12) ,K(12) 


sé EGES k 
PRINTE330," BE S YE C1)" : PRINTESZZ2, 
zz KIADAS kazak ge 
PRINTE714," JESZAGZI E: 87 F.TVELB Sp 


49 A$ZINKEY$ : 4 
IF A$-"1" THEN GOSUB 68 ELSE IF A$-"2" THEN 
GOSUB 80 ELSE IF A$z"3" THEN GOSUB 199 ELSE 40 
59 GOTO 30 
60 REM BEVETEL 
70 C€CLS : 
INPUT"HANYADIK HONAP ":X s: PRINT : INPUT"A BEVETEL ";Y 
B(XIzB(XIHY z 


RETURN 
80 REM KIADAS 
99 CLS s: 


INFUT"HANYADIK HONAP ";X : PRINT : INPUT"A KIADAS "GY : 
K(XISKK(XITY z: 
RETURN . 
100 REM OSSZESITES 
110 CLS : 
FRINTE2464 , "BEVETELEK :" z: 
FOR Izi TO 12 : PRINTB(I); : B-BtB(I) s: NEXT : 
FRINTEe6$64 , "KIADASOK :" : 
FOR I51 TO 12 : PRINTK(I); : KsKHK(I) : NEXT 
120 FRINTE10464, "AZ OSSZES BEVETEL :";B : 
FRINTG12464, "AZ OSSZES KIADAS :";k : 
PRINTE€e14464, "AZ EGYENLEG :";5B-K; : 
PRINTG€15464 , "ELOLVASTAD ?" 


130 IF INKEY$z"" THEN 139 ELSE RETURN 
10 REM ..... 9.3 GYAKORLAT 
ZO GCS té 

DEFINT A-Z 


X(ID):RND(119) s: Y(ID)-RND(42) s: NEXT 


EOR Tsi, 0-5 a 
: X5-X(I) : YzYCI) s: GOSUB 70 


39  I:-RND(Z3) 
40 27-RND(4) : 
IF 2-1 THEN Xb-X-8 ELSE IF Z-2 THEN X-X-48 ELSE 
IF 2-3 THEN Y5Y-4 ELSE Y-Yt4 
. 50 IF X-0 THEN X-0 ELSE IF Y-0g THEN Y-g ELSE 
IF X:119 THEN X5-119 ELSE IF Y2:42 THEN Y-42 
60  GOSUB 1009 s: X(I)-X : Y(I)-Y s: GOTO 30 
70 REM TOROL 
80 FOR J-O TO 4 : 
RESET(X4H24J,Y) : RESET(X,Y4rJ) : 
RESET(X4r8-—2kJ,Y-44) : RESET(X4t8,Yt4-J) : 
NEXT 
79 RETURN 
100 REM RAJZOL 
119 FOR J:4 TO 0 STEP -1 : 
SET(X424J,Y) s: SET(X,Y4rJ) s: 
SET(X48,Y-44-J) : SET(X4r8—28J ,Y44) z 
NEXT 
129 RETURN 
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19 REM ..... ID.AGYAKORLAT 
29 CLS : 
DEFINT A-Z 
30 FOR I-5i1 TO 10 : 
FOR J-i TO 5 : 
SET(2O£J,I) :£ SET(2ORJFID,I) : 
SET(2OYJHI,1) : SET(2O£JHI,10) : 
NEXT J,I 
40 FOR I-1 TO5 
50 I-RND(5) : X 
60 GOTO 59 
70 REM BECSUK 
80 FOR I-X-1i TO X : FOR J51 TO 3 : FRINTEJ$644I CHR$(127); : NEXT J,I 
989 RETURN 
198 REM KINYIT 
110 FOR IzX TO X-1 STEP-1 : FOR J5s1i TO 3 : PRINTEJ$k644I," "; : NEXT J,I 
120 RETURN 


: X(ID)510£I42 : NEXT 
zXC(I) : IF RND(2)-1 THEN GOSUB 79 ELSE GOSUB 1090 


REM 1... s 10.S6GYAKORLAT 
CLS 

H--1 : GOSUB 50 : P:c—1 
GOSUB 119 : GOTO 40 
REM ORA 

H-H4H1 : IF H-23 THEN H-Bg 
PRINTES4645-35 , H, "ORA"; : RETURN 
REM PERC 

PsP41 s IF P25? THEN P:Og 
PRINTE8464-4-35,P, "PERC" ; 
RETURN 

110 REM MASODFERC 

120 SzS41 s: IF S$5-59 THEN S$-0 : GOSUB 80 
130 PRINTE11k64-435 , S, "MASODPERC"; z: 


GOSUB 80 : S--1 : GOSUB 110 


SOSUB 50 


RETURN 
. 
REM elvén e al E BYAKORLAT 
20 X-0 : Y-10 
30 XzX-4-2 : IF X-57 THEN X-B 
49 CLS : s 


GOSUB 58 : GOTO 30 

590 REM BABU 

69 PRINTESZO4X, " geJEJEBERE " : PRINTEZBAFRX "RA A x" 
PRINTE4484X, "4 TT 0 €" s: PRINTESI24X,"§ VO 0 R" 


FRINTES764X," 0 degegEN 
70 FOR I5-i TO 39 : NEXT 
89 RETURN 
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190 REM ..... 19.7 GYAKORLAT 
29 DIM A(5,5) 
39 CLS : 
GOSUB 110 
40 FOR J-O TO S : 
FOR I-0 TO 5 : X(ID-A(J,I) : NEXT I 
GOSUB 1790 : Y(J)-EX : ; 
NEXT J 
58  PRINTE1IOD,""; : 
FOR IO TO 5 
60 FOR J-O TO 5 
GOSUB 140 : 
PRINTG6ó49,"M I 
70 FOR IO TOS : 
FOR JO TO 5 : X(IJ)-A(J,I) : NEXT J 
GOSUB 140 : Y(I)D-X : 
NEXT I 
89 FRINTG1IGA,""3z : 
. FOR I-0 TO 5 : PRINTY(I): : NEXT 
99 FOR I-O TO 5 : XC(I)DSY(I) : NEXT : 
GOSUB 170 : 
PRINTE76B,"M A 
100 IF INKEY$Z"" T. 
110 REM FELTOLTES 
120 FOR 1-0 TO 5 : 
FOR J-0 TO 5 : A(I,J)-RND(9) : PRINTEIKGAFZERJJA(I JJ); z 
NEXT J,I 
130 RETURN 
140 REM MAXI 
150 X50 : 
FOR KsO TO 5 : 
IF X(K)3X THEN X5-X(K) 
160 NEXT : 
RETURN 
170 REM MINI 
180 X510 : 
FOR Ksg TO 5 : 
IF X(K)XX THEN X5EX(K) 
199 NEXT : 
RETURN 


PRINTY(I); : NEXT 
XC(JI5zY(J) : NEXT s: 


NIMA XX 2"zX 


XI MIN :";X 
HEN 199 ELSE 30 


19-REM .onre MM AEGYAKOREÉAT 
20 CLS 
30 FOR Izi TOZ s: 
PRINTI; s: INPUT". FONT KOORDINATAI "5X(I),YCI) z 
IF XC(IDXO OR YCID)XD OR X(I2D)5127 OR Y(I)247 THEN 30 
40 NEXT : 
XC(2)5XC(3) s: YC(D)5sYC(3) s: 


2: 
XszX(0) s: YzY(0D) s: AzX(O4t1) s: BzY(O$r1) : 


60 IF INKEY$-"" THEN 60 ELSE 20 
70 REM SZAKASZ RAJZOLO 
89 IF ABS(X-A)-ABS(Y-B) THEN 99 ELSE 130 
90 IF Y5:B THEN 8--1 ELSE 5-1 
100 FOR I-Y TO B STEP S : 
IF XzA THEN SET(X,I) : GOTO 120 
119 J5X—(X-A)(VY—I)/(Y-B) : SET(J,I) 
120 NEXT I : 
RETURN 
120 IF X:A THEN §5-1 ELSE S-1 
140 FOR I-X TO A STEF S : 
IF Y-B THEN SET(I,Y) : GOTO 160 
159 J-Y-—-(Y-B)(X-—I)/(X-A) : SET(I,J) 3 
160 NEXT : § 
RETURN 


TOZRENMS (ő 5 oral OS? BOY AI OSR EC AT 
20 CLsS 
30 DEEÍNTSAZZ. 4 
PRINT: INPUT"A SZAMOK HANYJEGYUEK ":N : 
DIM A(N) , B(N) ,E(N) 
49 PRINT"AZ EGYIK SZAM SZAMJEGYEI ?" : 
FOR Iszi TO N 3 INPUT ACI) :§ NEXT 32 
PRINT"A MASIK SZAM SZAMJEGYEI ?" : 
FOREST TON. 4. INRUT BOIA 35 NEXT 
50 FOR I-N TO 9 STEP-1 : F-A(I)-4B(I)4C : GOSUB 89 : NEXT 
60 ELS 
PRINT"AZ EREDMENY :"; ; 
IF E(2)-8 THEN J-1 ELSE J-0D 
70 FOR IsJ TO N : PRINT E(I)s s: NEXT s: 
PRINT : 
CLEAR : 
GOTO 30 
809 REM  MODULO 109 
79 IF F:? THEN E(I)zF-19 : Csi ELSE E(I)zsF : CW 
1099 RETURN ; 


10 REM SESÉ 19-IOGYAK ORLAT 


30 DEETNT ASZ. 1 
INFUT"A SZAMOK HANY JEGYUEK ":N : 
DIM A(N) , B(N) ,E(2xN) 

40 PRINT"AZ EGYIK SZAM SZAMJEGYEI ?" ; 
FOR Isi TO N : INPUT A(I) : NEXT : 
PRINT"A MASIK SZAM SZAMJEGYEI ?" s: 
FOR AS TON 3 "INPUT BCII 3 (NEXT 

50 FSzA(N) RB(N) : KEZEN : 


GOSUB 130 
60 FOR Ks2XgN-1 TO 2 STEP -1 : 
Vsi 2 
IF KKNt1 THEN V-N-4-2-K 
70 Z-N : 
IF K:Nt1i THEN Z-2£N-Ktri1 
80 XzV4tkK-N-1i : Y5zNt1-V : F-0 
99 FOR IzV TO Z : FsFHFA(X)HB(Y) s: XzX4.1 s: YznY-1i s: NEXT I 
1090 FzFAC : 
GOSUB 139 
1109 NEXTK : 
E(1)5C 
129 CLS : 


FOR I:z1 TO N : FRINTEZEI S A(I):: PRINTE64-428I,B(I)s:: NEXT : 
FORI-1 TO 28£N PRINTEZ256őH2tI,E(IÍ; : NEXT : 
PRINT : PRINT 
CLEAR s: 
GOTO 309 
129 REM MOD 109 
140. C-F/10 : E(K)-F-10xC 
159 RETURN 
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TRENT! 6-a isa TÖGYELASNYAI KÖRIG SANT 


20 DEFINTA-Z s: DIM HC(12) s 
FOR Izi TO 12 s: READ H(I) z: NEXT s 
CLS 

zo NB : € 
PRINT"A MAI DATUM ?" : INPUT"EV , HO , NAP."39XIYIZz 
PRINT"A SZÜLETÉSI DATUM ?" s: INPUT"EV , HO , NAP ";A,B CEC 

40 IF XZA THEN 38 ELSE IF X-A THEN IF Y-(B THEN 39 ELSE 
IF YzB THEN IF ZcCC THEN 5308 

50 IF X-A AND Y-B THEN N-Z-C : GOTO 150 

60 IF X:A THEN 99 

79 kzC : GOSUB 1990 : k-z0 

80 BzB-4t1i1 : IF B-Y THEN GOSUB 1989 : GOTO 89 ELSE N-N-Z : GOTO 150 

90 KzC : GOSUB 199 : K-0D 

100 B-Bti : IF B:12 THEN 119 ELSE GOSUR 199 : GOTO 109 

119 AzAÁti : IF AXX THEN GOSUB 2209 : GOTO 1109 

120  B-O 3 

178 Bz-Bti : IF B-Y THEN GOSUB 199 GOTO 1730 

140 NzN-4-Z 

150 PRINTE9x64, "AZ ELTELT NAPOK. SZAMA : ",N : FRINT : PRINT s: 
STOF 

1609 REM SZOKOEV 

170 IzAa/4 : IF 144-A THEN 1-0 ELSE I-i 

180 RETURN 

190 REM HONAF 

200 IF B5-2 THEN J-zA : GOSUB 169 : IF I-0 THEN N-N-429-K s: 
RETURN ELSE N-N-428-K. : RETURN 

210 N-N--H(B)—-K : 
RETURN 

220 REM EV 

2z0o GOSUB 160 : IF I-9 THEN N-NHZó6 ELSE N-N-365 

240 RETURN 

250 DATA 31,28,31,30,31,30,31,31,39,31,309,31 

Tizenegyedik fejezet 

SOS REM Cosa a elad B NAK ID REA TV 

29 DEFINT A-Z : 
XziS5360 : I-16537 : Z-PEEK(X) s: POKE X,95 

39 YSPEEK(I) : 

4 IF Y-0 THEN 39 ELSE FOKE I,9 : IF Yb-i1i9g THEN 

POKE X,Z : XzXt64 ELSE IF Y-91 THEN POKE X,Z : X:X-64 ELSE 
IF YaB3 THEN POKE X.Z s: XmX-i ELSE IF Ya9. THEN FOKE X;5Z- s 
X5-Xt4t1 ELSE 30 

40 IF X:16Z8Z THEN X-16383 ELSE IF X-15Z60 THEN X-i5360 


so 


Z5PEEK(X) : POKE X,95 s: 
GOTO 30 


18 REM esve SISZZBYAKORLAT 


20 


309 


40 


30 


148 


DEFINT A—-Z s: 

X-15360 : I-16537 : Z-PEEK(X) : POKE X,75 

YzPEEK(I) s: 

IF Y:0 THEN 39 ELSE FOKE I,0 : IF Y510 THEN 

POKE X,Z : X5Xt64 ELSE IF Y-91 THEN FOKE X,Z : X5-X-64 ELSE 
IF Yz8 THEN POKE X,Z s: X5X-1 ELSE IF Y-9? THEN POKE XSiZ : 
XzXt1 ELSE 30 

IF XC£15359 THEN X-X-41924 ELSE IF X-15359 THEN X-15423ELSE 
IF X:16384 THEN X:16320 ELSE IF X:16384 THEN X-X-10724 
Z5PEEK(X) : FOKE X,75 : 

GOTO 30 


Má REM s dsse dádcs: B YA K O-RE AT 

29 REM RAJZOLÓ PROGRAM 
NEW LINE billentyuvel karaktermodvaltas ! 

30 DEFINT A-Z : 
CLS : fi 
X-153560 : I-16537 s: Ys32 : 75-31 : Yizis 
GOTO 119 

40 YsSPEEK(I) 2 
IF Y:-0 THEN 49 ELSE POKE I,O : IF Y5:10 THEN ú 
POKE XSZ : X5Xt64 ELSE IF Y-91i THEN FOKEX,Z : X-X-64 ELSE 
IF Yz8 THEN POKE X,Z : XzXx—-1i ELSE IF Y:9 THEN POKE X5Z :z 
XzXt1 ELSE 70 

30 IF X:16383 THEN Xzió383 ELSE IF X-X153690 THEN X-15360 

60 ZSPEEK(X) : POKE X,95 : 
GOTO 49 

70 RETURN 

90 POKE XIY : ZzY s: 


RETURN 

99. IF YC48 AND Y:41 THEN Z5Y-449 ELSE IF Y-(91 THEN ZzY475 ELSE 
ZzY469 

109 POKE XIZ : 
RETURN 


119 GOSUR 40 s: 
IF Y:13 THEN IF Yiz-i THEN Y1-g : GOTO 110 
ELSE Yisi s: GOTO 110 
120 IF Yi-ci THEN GOSUB 89 ELSE GOSUB 90 
1230 GOTO 1109 


10 REM 1... 1.4GYAKORLAT 


20 Les 13 1géj i 
X-15855 : XizX : Y15843 s: I5-16537 : L-0 

30 FOR J-9 TO 4 : FOKE X42£J,RND(26)t464 : NEXT : 
PRINTEG19,". CSERE"; 

49 Z:PEEK(X) : POKE X,75 


50 — KsPEEK(I) 
é IF kü THEN 50 ELSE POKE I,0 : IF KB THEN POKE X,Z : 
X5X-2 ELSE IF K-t? THEN POKE X,Z : X5-X42 ELSE 80 
60 — IF XXXi THEN XsX1 ELSE IF X3:Y THEN XzY 
78 — Z-PEEK(X) : POKE X,95 : 
GOTO 59 
BD LEL4H1 : 
PRINTEO,L; : 
POKE X.K : ZEK : 
GOTO 50 


10 REM ..... 11.55 GYAKORLAT 
20 DEFINT H- 
39 OUT Z31,7 
40 OUT 31,8 
59 OUT 31,0 
68 RESTORE 
70 READ HANG : IF HANG-999 THEN 129 
80 READ IDO 

99 OUT Z30,HANG 

109 FOR J-0G TO ZZrIDO : NEXT J 

110 GOTO 70 

129 OUT 389,0 

130 STOP 

140 REM A HANG ADATAI 

150 DATA 124,11,999 


OUT 39,254 
OUT 39,15 


s9 sz [7 
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79 
199 
110 
120 
130 
140 
150 
160 DATA 72,2,0,0,117,4,104,2,0,0,104,4,0,9,0,4 
170 
180 
199 
290 
210 
220 


REM 0... 11.6GYAKORLAT 
DEFINT H-L 

OUT 31,7 : OUT 30,254 

OUT 31,8 : OUT 30,15 

OUT Z1,0- 

RESTORE 

READ HANG : IF HANG-999 THEN 120 
READ IDO 


OUT 39,HANG 

FOR J-0O TO 99£IDO : NEXT J 

GOTO 70 e 
OUT 309,0 x 
STOP 

REM ROZSA SANDOR BALLADAJA 


DATA 194,2,9,0,194,2,0,9,117,2,9,9,117,2,9,0,104,2, 


7,2,104,2,0,0,117,2,9,0,104,2,0,0 


DATA 139,2,29,0,137,2,0,0,139,2,0,0,139,2,0,0,117,2,0,0, 


139,2,0,0,139,2,0,0,155,1,165,1,0,0 


DATA 155,4,9,90,165,3,155,1,9,9,139,4,90,0,0,4 

DATA 298,4,0,0,208,3,222,1,2,9,208,4,0,0,222,4,0,0 
2 DATA 165,2,9,9,165,2,90,9,155,2,0,0,155,2,0,90,137,2,90,0, 

124,2,0,9,112,4,9,0 

DATA 194,2,9,90,119,1,139,1,9,90,139,2,0,0,139,1,155,1,0,0, 

155,2,90,0,155,1,165,1,9,9,165,1,185,1,90,0,222,2,0,0 
220 DATA 2708,2,9,29,208,6,2,0,228,4,20,9,0,4 
230 DATA 999 
VO REME Sa sza ITS 7 GOVTA KOR ÁT 
29 CLS 
30 CLEAR 120 
49 OUT 31,7 : OUT 30,254 : OUT 31,8 : OUT 30,15 
59 D-7 : 
60 S$ZSTRINGE(57,CHR$(191)) : 

FRINTES4£8,S$; : FRINTEG64t12,S$; 
79 FOR Iz-G TO 56 STEF 7 
89 FOR J-9 TO 11 : PRINTEG64£xJ-4I CHRE(191); : NEXT J 
99 NEXT I 

RESTORE ; 

FOR I-9 TO D : READ T$,T : FRINTG64x10-474I-4/.,T$; : NEXT I 

IzD 

FRINTEG4£190--76I44A," "; 

FRINTEG4£190--7£IH4ASTE; 

H$-ZINKEY$ : IF H$-"" THEN 170 

RESTORE 

FOR 1-9 TOD 

READ T£,T 
IF H$zT$ THEN OUT 31,9 : OUT 30,T : GOTO 130 

NEXT I 

FRINTE64£15,CHRE (30) ; " ISMERETLEN HANG !!! "s; 

FRINT"A FOLYTATASHOZ USS LE EGY BILLENTYUT !!"; 

OUT 31,9 : OUT 30,0 

FRINTEL4xG4, "goz 

ASZINKEYE : 

IF A$-"" THEN 240 ELSE FRINTE64t15,CHRE(Z1); : GOTO 120 
250 STOF 
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DATA C,228,D,185,E,165,F,155,6,139,A,124,H,119,c,104 


10 REM ..... SISZBEGYY GAUSS REZA GA 
29 OUT OUT 30,254 
ZO OUT 


40 OUT 3 

59 X-RND(67Z)4131 

60 IF RND(2)-1 THEN J-15360 : L-163 : S-RND(199) 
ELSE J-162Z82Z : L-15360 : S--RND(100) 


79 CLS 

80 FOR M-J TOL STEF S 
99 FPOKE M,X 

1099 OUT Z0,(M—-15Z360)/5 
110 NEXT 

129 GOTO 50 
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A BASIC-KULCSSZAVAK 


TÁRGYMUTATÓJA ÉS MAGYAR 


Első fejezet 
SET. 


RUN 
CLS 
GOTO 
RESET 
NEW 
LET 
PRINT 
INPUT 
REM 


Második fejezet 


IF 
THEN 
ELSE 
STOP 
END 
CONT 
FOR TO 
STEP 
NEXT 
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ÉRTELMEZÉSE 


valamely állapotba juttat, a képernyő egy grafikus pontját 
kigyújtja 

fut, indul 

Clear of the Screen: a képernyő törlése 

megy valahova, az adott sorszámú sorra ugrik 


: alaphelyzetbe állít, kikapcsol 


új 

legyen 

(kijnyomtat, kiír 
bemenet, bemenő jel/adat 
Remark: megjegyzés 


ha 

akkor 

különben 

állj! 

vége 

Continue: folytat 
-tól, -ig 

lépés 

következő 


Harmadik fejezet 


DEFINT 
POINT 
AND 
OR 


Negyedik fejezet 


Ötödik fejezet 


DEFSNG 
DEFDBL 
ABS 
SOR 

" INT 

SIN 

COS 
EXP 
LOG 


Hatodik fejezet 


RND 
DEFSTR 
INKEY 


Hetedik fejezet 


CLEAR 
STRING 
.(CHR 
ASC 
LEN 
LEFT 
RIGHT 
MID 


Define Integer: egész típus definiálása 
pont 

és 

vagy 


Define Single (Precision): egyszeres pontosság definiálása 
Define Double (Precision): dupla pontosság definiálása 
(Value) Absolute: abszolútérték 

Sguare Root: négyzetgyök 

Integer: egész § 

szinusz 

koszinusz 

exponenciális 

logaritmus 


Random: véletlen 
Define String: karaktertípus definiálása 
In Keyboard: billentyűzeten 


töröl 

(karakter)lánc 

Character: karakter 

ASCII 

Length: hosszúság, valaminek a hossza 
bal 

jobb 

középen levő) 
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VAL Value: érték - 


STR É String 

Nyolcadik fejezet 

TAB tabulálás 

DATA adat 

READ olvas 

RESTORE visszaállít 
Kilencedik fejezet 

DIM Dimension: dimenzió 
Tizedik fejezet 

GOSUB szubrutin hívás 
RETURN visszatérés 

ON . -nál, -nél 
Tizenegyedik fejezet 

PEEK megnéz, kukucskál 
POKE zsák 

OUT ki, kifelé 
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Az ASCII-kódok táblázata 


0 j me] 
EIEEIHEIHE 


[75] 
00 


6 


B 
o 


Megjegyzések: 

— Géptípusonként bizonyos ASCII-kódokhoz tartozó karakterekben eltérések lehetnek. 

— Érdekességképpen megemlítjük, hogy az ASCII-kódokat nem minden személyi számítógép hasz- 
nálja, léteznek más kódrendszerek is. 

— A 8—31 közötti ASCII-kódok közül néhánynak a jelentésére utaltunk a hetedik fejezetben (ún. 


vezérlő karakterek). . 
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